Metrics for Destination given bearing on a great circle

analyze1.8s (8.6%)

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 39 to 24 computations (38.5% saved)

Precisions

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

ival-sin: 441.0ms (34% of total)

ival-mult: 423.0ms (32.6% of total)

ival-cos: 263.0ms (20.3% of total)

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

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

ival-asin: 35.0ms (2.7% of total)

ival-sub: 20.0ms (1.5% of total)

const: 3.0ms (0.2% of total)

backward-pass: 2.0ms (0.2% of total)

sample3.7s (18.2%)

Results

3.0s

8256×

valid

Precisions

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

ival-sin: 1.0s (40.5% of total)

ival-cos: 614.0ms (24.3% of total)

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

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

ival-add: 117.0ms (4.6% of total)

ival-atan2: 91.0ms (3.6% of total)

ival-sub: 83.0ms (3.3% of total)

const: 9.0ms (0.4% of total)

backward-pass: 4.0ms (0.2% of total)

Bogosity

preprocess184.0ms (0.9%)

Algorithm

2×	egg-herbie

Rules

1602×	`sum3-define`
1570×	`fma-define`
1440×	`fnmadd-define`
1362×	`fnmadd-define`
1212×	`sum4-define`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	179	689
1	415	684
2	772	661
3	1578	659
4	3812	659
5	7596	659
0	22	32
1	40	32
2	69	31
3	95	31
4	118	31
5	187	31
6	329	31
7	478	31
8	722	31
9	1145	31
10	1365	31
11	1594	31
12	1841	31
13	2228	31
14	2845	31
15	3332	31
16	3670	31
17	4242	31
18	4244	31
19	4257	31
20	4277	31
21	4285	31
0	4285	31

Stop Event

1×	iter limit
1×	saturated
1×	node limit

Calls

Call 1

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

Outputs

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

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

Call 2

Inputs
(+ 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 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 (neg phi1))) (- (cos delta) (* (sin (neg phi1)) (sin (asin (+ (* (sin (neg phi1)) (cos delta)) (* (* (cos (neg 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)))))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin (neg delta))) (cos phi1)) (- (cos (neg delta)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos (neg delta))) (* (* (cos phi1) (sin (neg delta))) (cos theta)))))))))
(+ lambda1 (atan2 (* (* (sin (neg theta)) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos (neg theta))))))))))
(neg (+ (neg 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 (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos (neg phi1))) (- (cos delta) (* (sin (neg phi1)) (sin (asin (+ (* (sin (neg phi1)) (cos delta)) (* (* (cos (neg phi1)) (sin delta)) (cos theta))))))))))
(neg (+ 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 (+ lambda1 (atan2 (* (* (sin theta) (sin (neg delta))) (cos phi1)) (- (cos (neg delta)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos (neg delta))) (* (* (cos phi1) (sin (neg delta))) (cos theta))))))))))
(neg (+ lambda1 (atan2 (* (* (sin (neg theta)) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos (neg theta)))))))))))
(+ phi1 (atan2 (* (* (sin theta) (sin delta)) (cos lambda1)) (- (cos delta) (* (sin lambda1) (sin (asin (+ (* (sin lambda1) (cos delta)) (* (* (cos lambda1) (sin delta)) (cos theta)))))))))
(+ phi2 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(+ delta (atan2 (* (* (sin theta) (sin lambda1)) (cos phi1)) (- (cos lambda1) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos lambda1)) (* (* (cos phi1) (sin lambda1)) (cos theta)))))))))
(+ theta (atan2 (* (* (sin lambda1) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos lambda1)))))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi2)) (- (cos delta) (* (sin phi2) (sin (asin (+ (* (sin phi2) (cos delta)) (* (* (cos phi2) (sin delta)) (cos theta)))))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin phi1)) (cos delta)) (- (cos phi1) (* (sin delta) (sin (asin (+ (* (sin delta) (cos phi1)) (* (* (cos delta) (sin phi1)) (cos theta)))))))))
(+ lambda1 (atan2 (* (* (sin phi1) (sin delta)) (cos theta)) (- (cos delta) (* (sin theta) (sin (asin (+ (* (sin theta) (cos delta)) (* (* (cos theta) (sin delta)) (cos phi1)))))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin phi2)) (cos phi1)) (- (cos phi2) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos phi2)) (* (* (cos phi1) (sin phi2)) (cos theta)))))))))
(+ lambda1 (atan2 (* (* (sin phi2) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos phi2)))))))))
(+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos theta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos theta)) (* (* (cos phi1) (sin theta)) (cos delta)))))))))

Outputs
(+ 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))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ (neg 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))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))) lambda1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos (neg phi1))) (- (cos delta) (* (sin (neg phi1)) (sin (asin (+ (* (sin (neg phi1)) (cos delta)) (* (* (cos (neg phi1)) (sin delta)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (fma (sin phi1) (sin (asin (fmsub (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin theta) (sin (neg delta))) (cos phi1)) (- (cos (neg delta)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos (neg delta))) (* (* (cos phi1) (sin (neg delta))) (cos theta)))))))))
(+ lambda1 (atan2 (* (neg (sin delta)) (* (sin theta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fnmadd (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin (neg theta)) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos (neg theta))))))))))
(+ lambda1 (atan2 (* (neg (sin delta)) (* (sin theta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(neg (+ (neg 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))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(neg (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos (neg phi1))) (- (cos delta) (* (sin (neg phi1)) (sin (asin (+ (* (sin (neg phi1)) (cos delta)) (* (* (cos (neg phi1)) (sin delta)) (cos theta))))))))))
(- (neg lambda1) (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (fma (sin phi1) (sin (asin (fmsub (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(neg (+ 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 lambda1) (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(neg (+ lambda1 (atan2 (* (* (sin theta) (sin (neg delta))) (cos phi1)) (- (cos (neg delta)) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos (neg delta))) (* (* (cos phi1) (sin (neg delta))) (cos theta))))))))))
(- (neg lambda1) (atan2 (* (neg (sin delta)) (* (sin theta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fnmadd (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(neg (+ lambda1 (atan2 (* (* (sin (neg theta)) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos (neg theta)))))))))))
(- (neg lambda1) (atan2 (* (neg (sin delta)) (* (sin theta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ phi1 (atan2 (* (* (sin theta) (sin delta)) (cos lambda1)) (- (cos delta) (* (sin lambda1) (sin (asin (+ (* (sin lambda1) (cos delta)) (* (* (cos lambda1) (sin delta)) (cos theta)))))))))
(+ phi1 (atan2 (* (sin theta) (* (sin delta) (cos lambda1))) (fnmadd (sin lambda1) (sin (asin (fma (cos delta) (sin lambda1) (* (cos lambda1) (* (sin delta) (cos theta)))))) (cos delta))))
(+ phi2 (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))) (fnmadd (sin phi1) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (cos delta) (sin phi1))))) (cos delta))) phi2)
(+ delta (atan2 (* (* (sin theta) (sin lambda1)) (cos phi1)) (- (cos lambda1) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos lambda1)) (* (* (cos phi1) (sin lambda1)) (cos theta)))))))))
(+ delta (atan2 (* (sin theta) (* (cos phi1) (sin lambda1))) (fnmadd (sin phi1) (sin (asin (fma (sin phi1) (cos lambda1) (* (sin lambda1) (* (cos phi1) (cos theta)))))) (cos lambda1))))
(+ theta (atan2 (* (* (sin lambda1) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos lambda1)))))))))
(+ theta (atan2 (* (sin delta) (* (cos phi1) (sin lambda1))) (fnmadd (sin phi1) (sin (asin (fma (cos phi1) (* (sin delta) (cos lambda1)) (* (cos delta) (sin phi1))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi2)) (- (cos delta) (* (sin phi2) (sin (asin (+ (* (sin phi2) (cos delta)) (* (* (cos phi2) (sin delta)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi2))) (fnmadd (sin phi2) (sin (asin (fma (sin delta) (* (cos theta) (cos phi2)) (* (cos delta) (sin phi2))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin theta) (sin phi1)) (cos delta)) (- (cos phi1) (* (sin delta) (sin (asin (+ (* (sin delta) (cos phi1)) (* (* (cos delta) (sin phi1)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (cos delta) (sin phi1))) (fnmadd (sin delta) (sin (asin (fma (cos delta) (* (sin phi1) (cos theta)) (* (sin delta) (cos phi1))))) (cos phi1))))
(+ lambda1 (atan2 (* (* (sin phi1) (sin delta)) (cos theta)) (- (cos delta) (* (sin theta) (sin (asin (+ (* (sin theta) (cos delta)) (* (* (cos theta) (sin delta)) (cos phi1)))))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin phi1) (cos theta))) (fnmadd (sin theta) (sin (asin (fma (sin delta) (* (cos phi1) (cos theta)) (* (sin theta) (cos delta))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin theta) (sin phi2)) (cos phi1)) (- (cos phi2) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos phi2)) (* (* (cos phi1) (sin phi2)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin phi2) (* (sin theta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin phi1) (cos phi2) (* (cos phi1) (* (cos theta) (sin phi2)))))) (cos phi2))))
(+ lambda1 (atan2 (* (* (sin phi2) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos phi2)))))))))
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin phi2))) (fnmadd (sin phi1) (sin (asin (fma (cos delta) (sin phi1) (* (cos phi2) (* (sin delta) (cos phi1)))))) (cos delta))))
(+ lambda1 (atan2 (* (* (sin delta) (sin theta)) (cos phi1)) (- (cos theta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos theta)) (* (* (cos phi1) (sin theta)) (cos delta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (fnmadd (sin phi1) (sin (asin (fma (sin theta) (* (cos phi1) (cos delta)) (* (sin phi1) (cos theta))))) (cos theta))))

Symmetry

(abs phi2)

explain360.0ms (1.7%)

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
6	1	(1.2599099933616532e+114 1.5091433630301884e+90 1.0401699740985349e+40 4.030077422164776e-139 5.867719455502606e+261)	1	(-2.6197314926987467e-218 -1.240429158108793e+48 5.1962460629126924e-70 4.634147530559976e-31 -1.3590984673107288e+45)	`(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))`
0	0	-	0	-	`(cos.f64 phi1)`
0	0	-	0	-	`(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))`
0	0	-	0	-	`(cos.f64 delta)`
0	0	-	0	-	`(sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))`
0	0	-	0	-	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
0	0	-	0	-	`(sin.f64 delta)`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 delta))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (sin.f64 theta) (sin.f64 delta))`
0	0	-	0	-	`(+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 delta))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))`
0	0	-	0	-	`delta`
0	0	-	0	-	`(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))`
0	0	-	0	-	`(sin.f64 theta)`
0	0	-	0	-	`theta`
0	0	-	0	-	`(cos.f64 theta)`

Results

261.0ms

512×

valid

Compiler

Compiled 444 to 71 computations (84% saved)

Precisions

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

ival-sin: 102.0ms (56.5% of total)

ival-cos: 36.0ms (19.9% of total)

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

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

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

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

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

const: 1.0ms (0.6% of total)

backward-pass: 0.0ms (0% of total)

eval0.0ms (0%)

Compiler: Compiled 38 to 23 computations (39.5% saved)

prune1.0ms (0%)

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

99.8%

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

Compiler

Compiled 38 to 23 computations (39.5% saved)

simplify106.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Program
✓	cost-diff	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	cost-diff	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	(atan2.f64 (.f64 (.f64 (sin.f64 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))))))))
✓	cost-diff	(+.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)))))))))

Rules

1362×	`fnmadd-define`
1142×	`fma-define`
796×	`sum3-define`
780×	`fnmsub-define`
780×	`fmsub-define`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	22	190
1	40	190
2	69	187
3	95	187
4	118	187
5	187	187
6	329	187
7	478	187
8	722	187
9	1145	187
10	1365	187
11	1594	187
12	1841	187
13	2228	187
14	2845	187
15	3332	187
16	3670	187
17	4242	187
18	4244	187
19	4257	187
20	4277	187
21	4285	187
0	4285	187

Stop Event

1×	iter limit
1×	saturated

Calls

Call 1

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

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

localize141.0ms (0.7%)

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
✓	accuracy	99.5%	(asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 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

113.0ms

256×

valid

Compiler

Compiled 203 to 24 computations (88.2% saved)

Precisions

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

ival-sin: 28.0ms (43.5% of total)

ival-cos: 15.0ms (23.3% of total)

ival-mult: 10.0ms (15.5% of total)

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

ival-add: 3.0ms (4.7% of total)

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

series50.0ms (0.2%)

Counts

7 → 252

Calls

Call 1

Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))>
#<alt (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))>
#<alt (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))>

Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>

Calls

63 calls:

Time	Variable		Point	Expression
23.0ms	theta	@	inf	(* (* (sin theta) (sin delta)) (cos phi1))
4.0ms	theta	@	inf	(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
2.0ms	phi1	@	inf	(* (* (sin theta) (sin delta)) (cos phi1))
2.0ms	delta	@	inf	(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
2.0ms	phi1	@	inf	(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))

rewrite406.0ms (2%)

Algorithm

1×	batch-egg-rewrite

Rules

3952×	`-lowering-.f32`
3952×	`-lowering-.f64`
3740×	`/-lowering-/.f32`
3740×	`/-lowering-/.f64`
2120×	`+-lowering-+.f64`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	22	120
1	102	120
2	894	117
0	8191	117

Stop Event

1×	iter limit
1×	node limit

Counts

7 → 192

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
(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))))))

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

simplify384.0ms (1.9%)

Algorithm

1×	egg-herbie

Rules

4440×	`-lowering-.f32`
4440×	`-lowering-.f64`
3222×	`+-lowering-+.f64`
3222×	`+-lowering-+.f32`
1870×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	240	5022
1	897	4909
2	3644	4774
3	6813	4765
0	8648	4765

Stop Event

1×	iter limit
1×	node limit

Counts

252 → 252

Calls

Call 1

Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))

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

eval80.0ms (0.4%)

Compiler: Compiled 22649 to 1356 computations (94% saved)

prune101.0ms (0.5%)

Pruning

26 alts after pruning (26 fresh and 0 done)

	Pruned	Kept	Total
New	418	26	444
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	419	26	445

Accuracy

99.9%

Counts

445 → 26

Alt Table

Click to see full alt table

Status	Accuracy	Program
	29.1%	(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	66.4%	(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
	49.1%	(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
	28.7%	(/.f64 (.f64 (+.f64 (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 lambda1 (.f64 lambda1 lambda1))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 6 binary64)) (pow.f64 (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 3 binary64)))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
▶	66.3%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 3 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 4 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))))
	94.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1)))))))))
▶	74.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
▶	99.8%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
▶	73.4%	lambda1

Compiler

Compiled 3096 to 1298 computations (58.1% saved)

simplify224.0ms (1.1%)

Algorithm

1×	egg-herbie

Localize:

Found 16 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
✓	cost-diff	0	(-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
✓	cost-diff	78208	(/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
✓	cost-diff	78464	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
✓	cost-diff	0	(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
✓	cost-diff	0	(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
✓	cost-diff	0	(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
✓	cost-diff	256	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	6144	(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
✓	cost-diff	6144	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
✓	cost-diff	6144	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
✓	cost-diff	6528	(+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)))
✓	cost-diff	6528	(-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))
✓	cost-diff	6528	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)))))
✓	cost-diff	6528	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))))

Rules

2156×	`fma-lowering-fma.f32`
2156×	`fma-lowering-fma.f64`
2074×	`-lowering-.f32`
2074×	`-lowering-.f64`
1610×	`fma-define`

Iterations

Useful iterations: 4 (0.0ms)

Iter	Nodes	Cost
0	52	811
1	141	811
2	307	790
3	861	790
4	2305	758
5	6622	758
0	8053	758

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))
(cos delta)
(+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))
(* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))
(* (sin delta) (* (cos phi1) (cos theta)))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
(* (* (cos delta) (sin phi1)) (sin phi1))
(* (cos delta) (sin phi1))
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(cos delta)
(* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))
(+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))
(* (sin delta) (cos theta))
(cos theta)
(* phi1 (cos delta))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))
1
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(cos delta)
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))
(sin phi1)
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))
(* (cos delta) (sin phi1))
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)
(/ 1 (/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1))))
1
(/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1)))
(- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1)
(atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))
(* (sin theta) (* (sin delta) (cos phi1)))
(sin theta)
theta
(* (sin delta) (cos phi1))
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))
(cos delta)
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(sin phi1)
(+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))
(* (cos delta) (sin phi1))
(* (sin delta) (* (cos phi1) (cos theta)))
(* (cos phi1) (cos theta))
(cos theta)
lambda1
(- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1))
(pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2)
2
(* lambda1 lambda1)

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

localize417.0ms (2%)

Localize:

Found 16 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.6%	(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))
✓	accuracy	66.4%	(/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
✓	accuracy	99.7%	(*.f64 (sin.f64 delta) (sin.f64 theta))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
✓	accuracy	95.8%	(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
✓	accuracy	99.8%	(*.f64 phi1 (cos.f64 delta))
✓	accuracy	99.8%	(*.f64 (sin.f64 delta) (cos.f64 theta))
✓	accuracy	99.8%	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.7%	(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
✓	accuracy	99.7%	(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))

Results

212.0ms

256×

valid

Compiler

Compiled 897 to 54 computations (94% saved)

Precisions

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

ival-mult: 36.0ms (25.6% of total)

ival-cos: 36.0ms (25.6% of total)

ival-sub: 25.0ms (17.8% of total)

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

ival-add: 8.0ms (5.7% of total)

ival-atan2: 8.0ms (5.7% of total)

ival-div: 5.0ms (3.6% of total)

ival-pow: 3.0ms (2.1% of total)

const: 1.0ms (0.7% of total)

backward-pass: 0.0ms (0% of total)

series129.0ms (0.6%)

Counts

28 → 1044

Calls

Call 1

Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))>
#<alt (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))>
#<alt (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))>
#<alt (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))>
#<alt (/ 1 (/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1))))>
#<alt (/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1)))>
#<alt (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1)>
#<alt (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))>
#<alt (* (* (cos delta) (sin phi1)) (sin phi1))>
#<alt (* (sin delta) (* (cos phi1) (cos theta)))>
#<alt (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (* (sin delta) (cos theta))>
#<alt (* phi1 (cos delta))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))>
#<alt (* (sin delta) (sin theta))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))>
#<alt (* (sin theta) (* (sin delta) (cos phi1)))>

Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (- 1 (pow phi1 2))>
#<alt (- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))>
#<alt (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ (* lambda1 (- (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ (* lambda1 (- (* lambda1 (+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 4))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (/ 1 lambda1)>
#<alt (/ (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) lambda1)>
#<alt (/ (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)>
#<alt (/ (- (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) (pow lambda1 3))))) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)>
#<alt (/ 1 lambda1)>
#<alt (* -1 (/ (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1) lambda1))>
#<alt (* -1 (/ (- (* -1 (/ (+ (* -1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) lambda1)) lambda1)) 1) lambda1))>
#<alt (* -1 (/ (- (* -1 (/ (+ (* -1 (/ (- (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) lambda1) (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)) 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) lambda1))>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (* -1 lambda1)>
#<alt (* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))>
#<alt (* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))>
#<alt (* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))>
#<alt (* -1 lambda1)>
#<alt (* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))>
#<alt (* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))>
#<alt (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))>
#<alt (+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (pow phi1 2) (cos delta))>
#<alt (* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))>
#<alt (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))>
#<alt (* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* (cos delta) (pow (sin phi1) 2))>
#<alt (* delta (* (cos phi1) (cos theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))>
#<alt (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos theta) (sin delta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))>
#<alt (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (sin delta))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))>
#<alt (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* delta (* (cos phi1) (* (cos theta) (sin phi1))))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (cos theta))>
#<alt (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt phi1>
#<alt (+ phi1 (* -1/2 (* (pow delta 2) phi1)))>
#<alt (+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))>
#<alt (+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>

Calls

261 calls:

Time	Variable		Point	Expression
12.0ms	delta	@	inf	(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
11.0ms	phi1	@	inf	(/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1)))
11.0ms	delta	@	0	(- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))
6.0ms	lambda1	@	-inf	(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
2.0ms	phi1	@	inf	(/ 1 (/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1))))

rewrite503.0ms (2.4%)

Algorithm

1×	batch-egg-rewrite

Rules

4108×	`-lowering-.f32`
4108×	`-lowering-.f64`
2230×	`fma-lowering-fma.f32`
2230×	`fma-lowering-fma.f64`
1994×	`/-lowering-/.f32`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	52	564
1	358	529
2	2742	510
0	8614	510

Stop Event

1×	iter limit
1×	node limit

Counts

28 → 600

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))))
(- (cos delta) (+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1))))
(+ (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)) (* (* (cos delta) (sin phi1)) (sin phi1)))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(/ 1 (/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1))))
(/ (- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1) (- (pow (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) 2) (* lambda1 lambda1)))
(- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))) lambda1)
(atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))
(* (* (cos delta) (sin phi1)) (sin phi1))
(* (sin delta) (* (cos phi1) (cos theta)))
(* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))
(* (sin theta) (sin delta))
(* (sin delta) (cos theta))
(* phi1 (cos delta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))
(* (sin delta) (sin theta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(* (sin theta) (* (sin delta) (cos phi1)))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
(+.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1))))
(+.f64 (.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (.f64 (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1 binary64)))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(fma.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(fma.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1))))
(fma.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64))
(pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64))
(pow.f64 (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))))
(.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))
(.f64 (pow.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (neg.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (sin.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow.f64 (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
(.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))))
(/.f64 (neg.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1))
(pow.f64 (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))) (cos.f64 delta))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))) (/.f64 (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (/.f64 (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1))) (.f64 (cos.f64 delta) (.f64 phi1 phi1)))
(fma.f64 phi1 (neg.f64 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))) (-.f64 #s(literal 0 binary64) phi1) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))) (cos.f64 delta))
(fma.f64 (neg.f64 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) phi1 (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(+.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)) lambda1)
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) lambda1)
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64) lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) lambda1 lambda1)
(fma.f64 (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))))
(/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (.f64 lambda1 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64))) lambda1) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64))) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) lambda1)
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (/.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda1)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(exp.f64 (.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 #s(literal 0 binary64) lambda1)))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1))
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64)) lambda1)
(/.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (neg.f64 (-.f64 #s(literal 0 binary64) lambda1)))
(pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda1)))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (pow.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal -1 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (/.f64 #s(literal 1 binary64) lambda1))
(exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
(+.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 0 binary64) (*.f64 lambda1 lambda1))))
(+.f64 (.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (.f64 (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1 binary64)))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 (.f64 lambda1 lambda1) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(fma.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (.f64 (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(fma.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda1))))
(fma.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64))
(pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64))
(pow.f64 (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1/2 binary64))
(pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))))
(.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))
(.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))
(.f64 (pow.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(exp.f64 (.f64 (log.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1 binary64)) #s(literal -1 binary64)))
(exp.f64 (neg.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1 binary64))))
(-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(-.f64 (/.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 1 binary64)) (/.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 1 binary64)))
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) (neg.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (neg.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(neg.f64 (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)))
(/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(/.f64 (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) lambda1)) (pow.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) #s(literal 1 binary64)) (.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(/.f64 (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 3 binary64)) (pow.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 2 binary64)) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 2 binary64)) (pow.f64 (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 2 binary64))) (+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (/.f64 lambda1 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(/.f64 (.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 1 binary64)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))
(/.f64 (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 #s(literal 0 binary64) lambda1)) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal 1 binary64))
(pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal 1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) #s(literal -1 binary64)))
(.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(.f64 (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))) #s(literal -1 binary64)))
(.f64 (pow.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64))) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) #s(literal -1 binary64)))
(.f64 (pow.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 #s(literal 0 binary64) lambda1))
(+.f64 (-.f64 #s(literal 0 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))) (/.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(fma.f64 #s(literal -1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(fma.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (*.f64 lambda1 lambda1)))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 #s(literal 0 binary64) lambda1)))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))) (neg.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 #s(literal 0 binary64) lambda1)))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 6 binary64)) (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1))))) (.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 (.f64 lambda1 lambda1) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 4 binary64)) (.f64 lambda1 (.f64 lambda1 (.f64 lambda1 lambda1)))) (.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(pow.f64 (/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (*.f64 lambda1 lambda1)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)) (.f64 lambda1 (.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64)))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
(.f64 (/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(.f64 (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 1 binary64)))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (cos.f64 theta)) #s(literal 2 binary64))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (cos.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))
(.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.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 theta delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 phi1 (cos.f64 delta))
(*.f64 (cos.f64 delta) phi1)
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (neg.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (sin.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow.f64 (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
(.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.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 theta delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (neg.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (neg.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (sin.f64 delta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(fma.f64 (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (cos.f64 delta)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow.f64 (/.f64 (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))
(.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1))
(.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))))
(.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))

simplify626.0ms (3%)

Algorithm

1×	egg-herbie

Rules

7144×	`-lowering-.f32`
7144×	`-lowering-.f64`
3260×	`+-lowering-+.f64`
3260×	`+-lowering-+.f32`
1742×	`associate-r`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	588	26746
1	2184	25509
2	7728	25509
0	8517	25509

Stop Event

1×	iter limit
1×	node limit

Counts

1044 → 1044

Calls

Call 1

Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(- 1 (pow phi1 2))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ (* lambda1 (- (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ (* lambda1 (- (* lambda1 (+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 4))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(/ 1 lambda1)
(/ (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) lambda1)
(/ (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)
(/ (- (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) (pow lambda1 3))))) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)
(/ 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) lambda1))
(* -1 (/ (- (* -1 (/ (+ (* -1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) lambda1)) lambda1)) 1) lambda1))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ (- (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) lambda1) (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)) 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) lambda1))
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(* -1 lambda1)
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(* -1 lambda1)
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(pow (sin phi1) 2)
(+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))
(+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))
(+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (pow phi1 2) (cos delta))
(* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))
(* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))
(* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* (cos delta) (pow (sin phi1) 2))
(* delta (* (cos phi1) (cos theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))
(* 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)))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos theta) (sin delta))
(+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (sin delta))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (cos theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(sin delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
phi1
(+ phi1 (* -1/2 (* (pow delta 2) phi1)))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))

Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (-.f64 #s(literal 0 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 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))
(+.f64 (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) delta)))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta)) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)))))))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1))))))))))
(+.f64 (+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (* (cos delta) (pow (sin phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(- 1 (pow phi1 2))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 delta (cos.f64 theta)))) (*.f64 phi1 phi1))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 (.f64 delta (-.f64 (-.f64 #s(literal 0 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 phi1 (cos.f64 theta)))) (-.f64 #s(literal 1 binary64) (.f64 phi1 phi1)))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 delta (.f64 (.f64 phi1 (cos.f64 theta)) #s(literal 1/6 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 phi1 (cos.f64 theta)))) (*.f64 phi1 phi1)))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(-.f64 #s(literal 0 binary64) (.f64 phi1 (.f64 phi1 (cos.f64 delta))))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (cos.f64 delta) (.f64 phi1 phi1)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1)))))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (cos.f64 delta) (.f64 phi1 phi1)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1)))))
(* -1 (* (pow phi1 2) (cos delta)))
(-.f64 #s(literal 0 binary64) (.f64 phi1 (.f64 phi1 (cos.f64 delta))))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal 1/2 binary64))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal -1/24 binary64))) (.f64 phi1 (.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 theta (.f64 theta (+.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal 1/720 binary64))) (.f64 phi1 (.f64 (sin.f64 delta) #s(literal 1/24 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (sin.f64 delta))))) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* 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)))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)) (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ (- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) (- (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))
(/.f64 (-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))
(/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(-.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (/.f64 lambda1 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))))
(+ (* lambda1 (- (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (.f64 lambda1 (+.f64 (/.f64 #s(literal -1 binary64) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))) (/.f64 lambda1 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64))))))
(+ (* lambda1 (- (* lambda1 (+ (* -1 (/ lambda1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 4))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3)))) (/ 1 (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)))) (/ 1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (.f64 lambda1 (+.f64 (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64))) (/.f64 lambda1 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 4 binary64))))) (/.f64 #s(literal -1 binary64) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))))))
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))) lambda1)
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) lambda1)
(/ (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)
(/.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))) lambda1)
(/ (- (+ 1 (+ (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) (pow lambda1 3))))) (* -1 (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) (pow lambda1 2)))) lambda1)
(/.f64 (+.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64)) (.f64 lambda1 (*.f64 lambda1 lambda1))))) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 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) 1) lambda1))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) lambda1)
(* -1 (/ (- (* -1 (/ (+ (* -1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2) lambda1)) lambda1)) 1) lambda1))
(/.f64 (+.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64)) lambda1) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (/ (- (* -1 (/ (+ (* -1 (/ (- (/ (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 3) lambda1) (pow (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 2)) 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) lambda1))
(/.f64 (+.f64 #s(literal -1 binary64) (/.f64 (.f64 #s(literal 1 binary64) (+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) (/.f64 (-.f64 (/.f64 (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 3 binary64)) lambda1) (pow.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) #s(literal 2 binary64))) lambda1))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(- (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ (* -1 lambda1) (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(-.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(.f64 lambda1 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(.f64 lambda1 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (- (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1) 1))
(.f64 lambda1 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (+ 1 (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* -1/2 (* (pow delta 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* 1/24 (* (pow delta 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 delta delta) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 delta delta))))))
(+ (* (pow delta 2) (+ (* -1/2 (pow (sin phi1) 2)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (pow (sin phi1) 2))) (* 1/24 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 delta delta)) #s(literal 1/24 binary64))) (.f64 (.f64 delta delta) (.f64 delta delta))))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (pow phi1 2) (cos delta))
(.f64 phi1 (.f64 phi1 (cos.f64 delta)))
(* (pow phi1 2) (+ (cos delta) (* -1/3 (* (pow phi1 2) (cos delta)))))
(.f64 (.f64 phi1 phi1) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)))
(* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* 2/45 (* (pow phi1 2) (cos delta)))))))
(.f64 (.f64 phi1 phi1) (+.f64 (cos.f64 delta) (.f64 (.f64 phi1 phi1) (.f64 (cos.f64 delta) (+.f64 #s(literal -1/3 binary64) (.f64 #s(literal 2/45 binary64) (*.f64 phi1 phi1)))))))
(* (pow phi1 2) (+ (cos delta) (* (pow phi1 2) (+ (* -1/3 (cos delta)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (cos delta))) (* 2/45 (cos delta))))))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)) (.f64 (.f64 (cos.f64 delta) (+.f64 (.f64 #s(literal -1/315 binary64) (.f64 phi1 phi1)) #s(literal 2/45 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1)))))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* (cos delta) (pow (sin phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(* delta (* (cos phi1) (cos theta)))
(.f64 (cos.f64 phi1) (.f64 delta (cos.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))
(.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (cos.f64 theta)))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))
(+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))
(+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (* (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))))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta)))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta)))) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -1/144 binary64))) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -29/5040 binary64))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta)))) (.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (cos theta))
(*.f64 delta (cos.f64 theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
phi1
(+ phi1 (* -1/2 (* (pow delta 2) phi1)))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) phi1)
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))
(+.f64 phi1 (.f64 (.f64 delta delta) (.f64 phi1 (+.f64 (.f64 #s(literal 1/24 binary64) (*.f64 delta delta)) #s(literal -1/2 binary64)))))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))
(+.f64 phi1 (.f64 (.f64 delta delta) (+.f64 (.f64 phi1 #s(literal -1/2 binary64)) (.f64 (.f64 delta delta) (.f64 phi1 (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 delta delta)) #s(literal 1/24 binary64)))))))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (-.f64 #s(literal 0 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 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))
(+.f64 (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) delta)))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta)) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 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))))))))
(+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+ (* (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)))))))))
(+.f64 (+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (-.f64 #s(literal 0 binary64) (.f64 delta (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 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))
(+.f64 (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 theta theta) #s(literal 1/2 binary64))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal -1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 phi1 (.f64 (cos.f64 delta) #s(literal -1/3 binary64)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 phi1) delta)))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta)) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 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))))))))
(+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+ (* (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)))))))))
(+.f64 (+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))))) (.f64 (.f64 (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* 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)))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))

eval474.0ms (2.3%)

Compiler: Compiled 115204 to 4014 computations (96.5% saved)

prune283.0ms (1.4%)

Pruning

36 alts after pruning (34 fresh and 2 done)

	Pruned	Kept	Total
New	2063	26	2089
Fresh	13	8	21
Picked	3	2	5
Done	0	0	0
Total	2079	36	2115

Accuracy

100.0%

Counts

2115 → 36

Alt Table

Click to see full alt table

Status	Accuracy	Program
	29.1%	(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	49.1%	(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
	66.2%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
	57.9%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	36.3%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	64.5%	(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	29.1%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))))
▶	73.2%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
	73.5%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 (.f64 phi1 phi1) (.f64 (+.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (.f64 phi1 (*.f64 phi1 (cos.f64 delta)))))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1))))))
	94.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1)))))))))
▶	78.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	66.7%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	90.8%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
	79.9%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
▶	84.0%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
▶	99.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
	87.4%	(.f64 lambda1 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)))))
✓	73.4%	lambda1

Compiler

Compiled 2949 to 1579 computations (46.5% saved)

simplify214.0ms (1%)

Algorithm

1×	egg-herbie

Localize:

Found 18 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
✓	cost-diff	128	(/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
✓	cost-diff	128	(+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
✓	cost-diff	384	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
✓	cost-diff	0	(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
✓	cost-diff	0	(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
✓	cost-diff	0	(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
✓	cost-diff	256	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
✓	cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1))))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
✓	cost-diff	0	(/.f64 #s(literal 1 binary64) lambda1)
✓	cost-diff	256	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	6400	(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
✓	cost-diff	6400	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
✓	cost-diff	6400	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))

Rules

1698×	`fma-lowering-fma.f32`
1698×	`fma-lowering-fma.f64`
1692×	`sum5-define`
1684×	`-lowering-.f32`
1684×	`-lowering-.f64`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	56	770
1	157	765
2	418	735
3	1352	733
4	3969	733
0	8244	733

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(cos delta)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
(* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
1/2
(* 1/2 (cos (* 2 phi1)))
(cos (* 2 phi1))
(* 2 phi1)
2
(/ 1 (/ 1 lambda1))
1
(/ 1 lambda1)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1)))
(cos delta)
(* phi1 (+ (* (sin delta) (cos theta)) phi1))
(+ (* (sin delta) (cos theta)) phi1)
(* (sin delta) (cos theta))
(cos theta)
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))
1
(/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)
(atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(* (cos phi1) (* delta (sin theta)))
(cos phi1)
phi1
(* delta (sin theta))
delta
(sin theta)
theta
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(cos delta)
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))
(sin phi1)
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))
(* (cos delta) (sin phi1))
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(sin delta)
(cos theta)
(* lambda1 (+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))))
lambda1
(+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))))
1
(/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))
(/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))
(atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))
(* (sin theta) (* (sin delta) (cos phi1)))
(sin theta)
theta
(* (sin delta) (cos phi1))
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))
(cos delta)
(* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))
(sin phi1)
(+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)
(* (cos delta) (sin phi1))

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

localize576.0ms (2.8%)

Localize:

Found 18 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
✓	accuracy	98.7%	(/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1))))))))
✓	accuracy	96.0%	(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))
✓	accuracy	99.7%	(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
✓	accuracy	95.8%	(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
✓	accuracy	99.9%	(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1))
✓	accuracy	99.8%	(*.f64 (sin.f64 delta) (cos.f64 theta))
✓	accuracy	99.8%	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	100.0%	(/.f64 #s(literal 1 binary64) lambda1)
✓	accuracy	99.8%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
✓	accuracy	99.7%	(.f64 (sin.f64 delta) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓	accuracy	99.6%	(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓	accuracy	99.2%	(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
✓	accuracy	76.7%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))

Results

226.0ms	115×	1	valid
179.0ms	141×	0	valid

Compiler

Compiled 804 to 58 computations (92.8% saved)

Precisions

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

ival-mult: 47.0ms (24.3% of total)

ival-cos: 45.0ms (23.3% of total)

ival-sin: 36.0ms (18.6% of total)

backward-pass: 15.0ms (7.8% of total)

ival-div: 13.0ms (6.7% of total)

ival-atan2: 13.0ms (6.7% of total)

ival-add: 12.0ms (6.2% of total)

ival-sub: 10.0ms (5.2% of total)

const: 1.0ms (0.5% of total)

series94.0ms (0.5%)

Counts

27 → 972

Calls

Call 1

Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (/ 1 (/ 1 lambda1))>
#<alt (/ 1 lambda1)>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1)))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1))))>
#<alt (* (sin theta) (sin delta))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))>
#<alt (* lambda1 (+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))))>
#<alt (+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))))>
#<alt (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))>
#<alt (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* (* (cos phi1) (cos theta)) (sin phi1))>
#<alt (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))>
#<alt (* (sin delta) (cos theta))>
#<alt (* phi1 (+ (* (sin delta) (cos theta)) phi1))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))>
#<alt (* (cos phi1) (* delta (sin theta)))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))>
#<alt (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))>

Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* -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)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))>
#<alt (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))>
#<alt (* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (sin phi1))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))>
#<alt (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))>
#<alt (+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* (cos phi1) (* (cos theta) (sin phi1)))>
#<alt (* delta (* (cos phi1) (* (cos theta) (sin phi1))))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* delta (cos theta))>
#<alt (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))>
#<alt (pow phi1 2)>
#<alt (+ (* delta (* phi1 (cos theta))) (pow phi1 2))>
#<alt (+ (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta)))) (pow phi1 2))>
#<alt (+ (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta)))))))) (pow phi1 2))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (sin delta)))>
#<alt (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (+ phi1 (sin delta))))>
#<alt (+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))>
#<alt (+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ phi1 (* (cos theta) (sin delta))))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* delta (sin theta))>
#<alt (+ (* -1/2 (* delta (* (pow phi1 2) (sin theta)))) (* delta (sin theta)))>
#<alt (+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* 1/24 (* delta (* (pow phi1 2) (sin theta)))))))>
#<alt (+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* delta (* (pow phi1 2) (sin theta)))) (* 1/24 (* delta (sin theta))))))))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* theta (cos phi1)))>
#<alt (* theta (+ (* -1/6 (* delta (* (pow theta 2) (cos phi1)))) (* delta (cos phi1))))>
#<alt (* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* 1/120 (* delta (* (pow theta 2) (cos phi1))))))))>
#<alt (* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* (pow theta 2) (+ (* -1/5040 (* delta (* (pow theta 2) (cos phi1)))) (* 1/120 (* delta (cos phi1)))))))))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>

Calls

243 calls:

Time	Variable		Point	Expression
18.0ms	lambda1	@	0	(/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))
5.0ms	phi1	@	-inf	(* phi1 (+ (* (sin delta) (cos theta)) phi1))
3.0ms	phi1	@	-inf	(- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
2.0ms	delta	@	0	(* phi1 (+ (* (sin delta) (cos theta)) phi1))
1.0ms	delta	@	inf	(- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))

rewrite418.0ms (2%)

Algorithm

1×	batch-egg-rewrite

Rules

3220×	`-lowering-.f32`
3220×	`-lowering-.f64`
2368×	`fma-lowering-fma.f32`
2368×	`fma-lowering-fma.f64`
1966×	`pow-lowering-pow.f64`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	56	536
1	361	494
2	3387	473
0	8474	473

Stop Event

1×	iter limit
1×	node limit

Counts

27 → 585

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))
(- (- (cos delta) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(/ 1 (/ 1 lambda1))
(/ 1 lambda1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1)))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) phi1))))
(* (sin theta) (sin delta))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))) lambda1)
(atan2 (* (cos phi1) (* delta (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(* lambda1 (+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))))
(+ 1 (/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))))
(/ 1 (/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))))))
(/ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (sin delta) (cos theta))
(* phi1 (+ (* (sin delta) (cos theta)) phi1))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))
(* (cos phi1) (* delta (sin theta)))
(- (cos delta) (* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1)))))
(* (sin phi1) (+ (* (cos phi1) (* (sin delta) (cos theta))) (* (cos delta) (sin phi1))))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(fma.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) (pow.f64 lambda1 #s(literal 1/2 binary64)) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (neg.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(pow.f64 (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))
(-.f64 (cos.f64 delta) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (cos.f64 delta) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (sin.f64 theta)))
(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta)))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(.f64 (.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
lambda1
(exp.f64 (log.f64 lambda1))
(exp.f64 (*.f64 (log.f64 lambda1) #s(literal 1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 lambda1 #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 (-.f64 #s(literal 0 binary64) lambda1) #s(literal -1 binary64))
(pow.f64 lambda1 #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) lambda1) #s(literal -1 binary64))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 lambda1 #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) lambda1)
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1))
(*.f64 #s(literal -1 binary64) (pow.f64 (-.f64 #s(literal 0 binary64) lambda1) #s(literal 1 binary64)))
(*.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) (pow.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1)))
(exp.f64 (*.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1)) #s(literal 1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda1)
(/.f64 (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (/.f64 #s(literal -1 binary64) lambda1) #s(literal -1 binary64))
(pow.f64 lambda1 #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(*.f64 (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) lambda1) #s(literal 1 binary64)))
(*.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) (pow.f64 lambda1 #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(-.f64 (/.f64 (.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))) (/.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(fma.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) (pow.f64 lambda1 #s(literal 1/2 binary64)) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1))))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)) (-.f64 (.f64 lambda1 lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/.f64 (neg.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)) (.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1))
(pow.f64 (/.f64 (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1))) (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)))))
(.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(+.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) lambda1)
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) lambda1)
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64) lambda1)
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) lambda1 lambda1)
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(fma.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) (pow.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(fma.f64 (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (.f64 #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))) (.f64 (/.f64 #s(literal -1 binary64) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal -1 binary64) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) #s(literal -1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (/.f64 #s(literal -1 binary64) lambda1)))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal 1 binary64) lambda1)))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) #s(literal -1 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal -1 binary64) lambda1)))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)) #s(literal 1 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (.f64 lambda1 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 (.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(.f64 #s(literal 1 binary64) (+.f64 lambda1 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) lambda1)
(.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal 1 binary64)) lambda1)
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(fma.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64))
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal -1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(exp.f64 (.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 #s(literal 0 binary64) lambda1)))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64)))
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) lambda1)
(/.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) lambda1)
(/.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) lambda1)
(pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (pow.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -1 binary64)))
(.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal -1 binary64) lambda1))
(.f64 (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(+.f64 lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(fma.f64 lambda1 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(fma.f64 lambda1 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(fma.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) lambda1 lambda1)
(fma.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) lambda1) (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(fma.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) (pow.f64 lambda1 #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (.f64 #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))) (.f64 (/.f64 #s(literal -1 binary64) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal -1 binary64) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) #s(literal -1 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (/.f64 #s(literal -1 binary64) lambda1)))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal 1 binary64) lambda1)))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) #s(literal -1 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 #s(literal -1 binary64) lambda1)))
(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (pow.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64)) (.f64 lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (pow.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (.f64 lambda1 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 (.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) lambda1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) lambda1) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(.f64 #s(literal 1 binary64) (+.f64 lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) lambda1)
(.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal 1 binary64)) lambda1)
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(+.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))) (/.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(fma.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1 binary64) lambda1) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) (+.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))))))
(.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(exp.f64 (log.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(/.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) lambda1)
(pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(pow.f64 (pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (/.f64 #s(literal 1 binary64) lambda1) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(.f64 (/.f64 #s(literal -1 binary64) lambda1) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(.f64 (/.f64 #s(literal -1 binary64) lambda1) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)))
(.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) lambda1))
(exp.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(exp.f64 (.f64 (log.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) #s(literal -1 binary64)))
(neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 lambda1 (.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 lambda1 (neg.f64 (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)))
(/.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 #s(literal -1 binary64) lambda1) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 #s(literal -1 binary64) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 #s(literal -1 binary64) lambda1)))
(/.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 #s(literal 0 binary64) lambda1) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 #s(literal -1 binary64) lambda1))
(pow.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64))
(pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(.f64 lambda1 (/.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64)))
(.f64 lambda1 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(.f64 (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) #s(literal -1 binary64)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) lambda1)
(.f64 (pow.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64)) #s(literal -1 binary64)) (-.f64 #s(literal 0 binary64) lambda1))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64))))))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64))))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))) (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64))))))))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (cos.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta)))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (cos.f64 theta))
(.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 delta)))
(.f64 (cos.f64 phi1) (.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(.f64 (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
(.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(+.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) phi1)))
(+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1)) (*.f64 phi1 phi1))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1) (.f64 phi1 phi1))
(fma.f64 phi1 phi1 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1)))
(fma.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 phi1))
(fma.f64 (cos.f64 theta) (.f64 (sin.f64 delta) phi1) (.f64 phi1 phi1))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1 (.f64 phi1 phi1))
(fma.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta) (.f64 phi1 phi1))
(fma.f64 (.f64 phi1 (cos.f64 theta)) (sin.f64 delta) (.f64 phi1 phi1))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1)) #s(literal 3 binary64)) (.f64 (.f64 phi1 (.f64 phi1 phi1)) (.f64 phi1 (.f64 phi1 phi1)))) (+.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 phi1)) (-.f64 (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1)) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1)) (*.f64 phi1 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 phi1)) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) phi1)) (*.f64 phi1 phi1)))
(/.f64 (.f64 phi1 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 3 binary64)) (.f64 phi1 (.f64 phi1 phi1)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 (-.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (.f64 phi1 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 phi1))) (-.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 3 binary64)) (.f64 phi1 (.f64 phi1 phi1))) phi1) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 (-.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 phi1 phi1)) phi1) (-.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(.f64 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))) phi1)
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))
(-.f64 (cos.f64 delta) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (cos.f64 delta) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))
(.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1))
(.f64 (sin.f64 theta) (.f64 delta (cos.f64 phi1)))
(.f64 delta (.f64 (sin.f64 theta) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) delta))
(.f64 (.f64 (sin.f64 theta) delta) (cos.f64 phi1))
(.f64 (.f64 delta (cos.f64 phi1)) (sin.f64 theta))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) delta)
(+.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(+.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))
(-.f64 (cos.f64 delta) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (cos.f64 delta) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (neg.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (-.f64 (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64)) (.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 2 binary64))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 delta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (sin.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (sin.f64 phi1) (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (cos.f64 phi1)) (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(fma.f64 (.f64 (sin.f64 phi1) (cos.f64 phi1)) (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(fma.f64 (.f64 (sin.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 theta)) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (.f64 (sin.f64 phi1) (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))))) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta))))))) (sin.f64 phi1)) (-.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))))
(.f64 (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1))

simplify589.0ms (2.9%)

Algorithm

1×	egg-herbie

Rules

7016×	`-lowering-.f32`
7016×	`-lowering-.f64`
3452×	`+-lowering-+.f64`
3452×	`+-lowering-+.f32`
1728×	`associate-r`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	542	22462
1	2032	22055
2	7138	22055
0	8102	22055

Stop Event

1×	iter limit
1×	node limit

Counts

972 → 972

Calls

Call 1

Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
1
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
1
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -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)))
(* -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)))
(* -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)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) 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 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* phi1 (cos theta))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (sin phi1))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))
(+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (cos theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(sin delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(pow phi1 2)
(+ (* delta (* phi1 (cos theta))) (pow phi1 2))
(+ (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta)))) (pow phi1 2))
(+ (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta)))))))) (pow phi1 2))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (sin delta)))
(+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (+ phi1 (sin delta))))
(+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))
(+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* delta (sin theta))
(+ (* -1/2 (* delta (* (pow phi1 2) (sin theta)))) (* delta (sin theta)))
(+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* 1/24 (* delta (* (pow phi1 2) (sin theta)))))))
(+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* delta (* (pow phi1 2) (sin theta)))) (* 1/24 (* delta (sin theta))))))))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* theta (cos phi1)))
(* theta (+ (* -1/6 (* delta (* (pow theta 2) (cos phi1)))) (* delta (cos phi1))))
(* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* 1/120 (* delta (* (pow theta 2) (cos phi1))))))))
(* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* (pow theta 2) (+ (* -1/5040 (* delta (* (pow theta 2) (cos phi1)))) (* 1/120 (* delta (cos phi1)))))))))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))

Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (neg.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 theta theta))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (.f64 theta (.f64 theta (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* 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)))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 lambda1 (neg.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 lambda1)))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 lambda1 (neg.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 lambda1)))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 lambda1 (neg.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (neg.f64 lambda1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ phi1 (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (pow phi1 2))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (- (* (cos theta) (sin delta)) (* -1 phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 theta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(.f64 theta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 theta theta)) #s(literal 1/120 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -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)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))) lambda1)
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)
(/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(/ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/3 binary64)))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 (+.f64 #s(literal -1/3 binary64) (.f64 (.f64 phi1 phi1) #s(literal 2/45 binary64)))))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal -1/3 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 2/45 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/315 binary64))))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))
(.f64 phi1 (+.f64 (cos.f64 theta) (.f64 (.f64 (.f64 (cos.f64 theta) #s(literal -2/3 binary64)) phi1) phi1)))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (* 1/12 (cos theta))))))))))
(.f64 phi1 (+.f64 (cos.f64 theta) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (.f64 phi1 (.f64 phi1 (*.f64 (cos.f64 theta) #s(literal 2/15 binary64))))))))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))
(.f64 phi1 (+.f64 (cos.f64 theta) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (.f64 phi1 (.f64 phi1 (+.f64 (.f64 (cos.f64 theta) #s(literal 2/15 binary64)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (cos.f64 theta) #s(literal -1/144 binary64)) (*.f64 (cos.f64 theta) #s(literal -29/5040 binary64)))))))))))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (sin phi1))
(*.f64 (cos.f64 phi1) (sin.f64 phi1))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1)))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 phi1)))
(+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin phi1)))))))
(+.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (* (cos phi1) (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin phi1)))) (* 1/24 (* (cos phi1) (sin phi1))))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 theta theta)))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) (.f64 phi1 phi1)))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 phi1 (.f64 phi1 (+.f64 (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -1/630 binary64))) (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -1/90 binary64))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta)))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))
(* delta (cos theta))
(*.f64 delta (cos.f64 theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)) (.f64 delta (.f64 delta (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 theta theta)))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(* (pow phi1 2) (+ 1 (/ (* (cos theta) (sin delta)) phi1)))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1))))
(pow phi1 2)
(*.f64 phi1 phi1)
(+ (* delta (* phi1 (cos theta))) (pow phi1 2))
(+.f64 (.f64 phi1 phi1) (.f64 delta (*.f64 phi1 (cos.f64 theta))))
(+ (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta)))) (pow phi1 2))
(+.f64 (.f64 phi1 phi1) (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 phi1 (cos.f64 theta)))))
(+ (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta)))))))) (pow phi1 2))
(+.f64 (.f64 phi1 phi1) (.f64 delta (+.f64 (.f64 phi1 (cos.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 phi1 (cos.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (*.f64 delta delta))))))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (sin delta)))
(*.f64 phi1 (+.f64 phi1 (sin.f64 delta)))
(+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (+ phi1 (sin delta))))
(+.f64 (.f64 phi1 (+.f64 phi1 (sin.f64 delta))) (.f64 theta (.f64 theta (.f64 phi1 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))
(+.f64 (.f64 phi1 (+.f64 phi1 (sin.f64 delta))) (.f64 (.f64 theta theta) (+.f64 (.f64 phi1 (.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (.f64 (.f64 theta theta) (.f64 phi1 (*.f64 (sin.f64 delta) #s(literal 1/24 binary64)))))))
(+ (* phi1 (+ phi1 (sin delta))) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))
(+.f64 (.f64 phi1 (+.f64 phi1 (sin.f64 delta))) (.f64 (.f64 theta theta) (+.f64 (.f64 phi1 (.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal -1/720 binary64))) (.f64 phi1 (*.f64 (sin.f64 delta) #s(literal 1/24 binary64))))))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ phi1 (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (+ 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))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (+.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 theta theta))) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (.f64 theta (.f64 theta (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) delta)))))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta)) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ (* (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))))))))
(+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta)))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+ (* (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)))))))))
(+.f64 (+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(+ (* -1/2 (* delta (* (pow phi1 2) (sin theta)))) (* delta (sin theta)))
(+.f64 (.f64 delta (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 theta)))))
(+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* 1/24 (* delta (* (pow phi1 2) (sin theta)))))))
(+.f64 (.f64 delta (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 theta))) (.f64 (.f64 phi1 phi1) (.f64 delta (*.f64 (sin.f64 theta) #s(literal 1/24 binary64)))))))
(+ (* delta (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* delta (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* delta (* (pow phi1 2) (sin theta)))) (* 1/24 (* delta (sin theta))))))))
(+.f64 (.f64 delta (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 delta (sin.f64 theta))) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 (.f64 phi1 (sin.f64 theta))) (.f64 delta #s(literal -1/720 binary64))) (.f64 delta (*.f64 (sin.f64 theta) #s(literal 1/24 binary64))))))))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* theta (cos phi1)))
(.f64 theta (.f64 (cos.f64 phi1) delta))
(* theta (+ (* -1/6 (* delta (* (pow theta 2) (cos phi1)))) (* delta (cos phi1))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) delta) (.f64 (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) theta) theta)))
(* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* 1/120 (* delta (* (pow theta 2) (cos phi1))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) delta) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (.f64 theta theta) (.f64 delta (.f64 (cos.f64 phi1) #s(literal 1/120 binary64))))))))
(* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* (pow theta 2) (+ (* -1/5040 (* delta (* (pow theta 2) (cos phi1)))) (* 1/120 (* delta (cos phi1)))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) delta) (.f64 (.f64 theta theta) (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 theta theta)) (.f64 delta #s(literal -1/5040 binary64))) (.f64 delta (.f64 (cos.f64 phi1) #s(literal 1/120 binary64)))))))))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (+ 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))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (.f64 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (+.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (.f64 theta theta))) (sin.f64 phi1)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (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)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64)))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (.f64 theta (.f64 theta (+.f64 (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) delta)))))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) delta)) (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1)))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ (* (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))))))))
(+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta)))))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))))
(+ (* (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)))))))))
(+.f64 (+.f64 (.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))))) (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 theta theta)) #s(literal 1/24 binary64))) (.f64 (.f64 theta theta) (*.f64 theta theta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))

eval353.0ms (1.7%)

Compiler: Compiled 67973 to 3605 computations (94.7% saved)

prune270.0ms (1.3%)

Pruning

44 alts after pruning (41 fresh and 3 done)

	Pruned	Kept	Total
New	1676	24	1700
Fresh	12	17	29
Picked	3	2	5
Done	1	1	2
Total	1692	44	1736

Accuracy

100.0%

Counts

1736 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	38.1%	(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
	20.7%	(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
	29.1%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
▶	29.1%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	49.1%	(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
▶	20.8%	(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
	66.2%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (fma.f64 (sin.f64 phi1) (neg.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (cos.f64 delta))) #s(literal 2 binary64)) (.f64 lambda1 lambda1))))
	36.3%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	49.8%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (.f64 (sin.f64 delta) (cos.f64 theta))))))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 phi1 (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 2 binary64)))))
✓	73.2%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
	34.8%	(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
▶	73.5%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
▶	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/3 binary64)))))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	93.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
	94.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
	84.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
	80.1%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1)))))))))
▶	78.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)))))))
	71.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
	87.6%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
	38.0%	(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
	90.8%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
	83.9%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
	80.6%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
	99.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
	99.6%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1)))))
✓	99.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
	90.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))))))
	34.8%	(exp.f64 (log.f64 lambda1))
✓	73.4%	lambda1

Compiler

Compiled 2844 to 1690 computations (40.6% saved)

simplify195.0ms (0.9%)

Algorithm

1×	egg-herbie

Localize:

Found 19 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(*.f64 (cos.f64 phi1) (sin.f64 delta))
✓	cost-diff	0	(sin.f64 theta)
✓	cost-diff	0	(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
✓	cost-diff	0	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
✓	cost-diff	0	(.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))
✓	cost-diff	6272	(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
✓	cost-diff	6272	(atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
✓	cost-diff	6272	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
✓	cost-diff	0	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	0	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
✓	cost-diff	0	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
✓	cost-diff	0	(*.f64 lambda1 lambda1)
✓	cost-diff	0	(pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64))
✓	cost-diff	0	(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
✓	cost-diff	0	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	cost-diff	6528	(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
✓	cost-diff	6528	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1)))))))
✓	cost-diff	6528	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))

Rules

1772×	`sum5-define`
1728×	`fmsub-define`
1682×	`fmm-def`
1540×	`-lowering-.f32`
1540×	`-lowering-.f64`

Iterations

Useful iterations: 4 (0.0ms)

Iter	Nodes	Cost
0	55	548
1	140	545
2	356	528
3	1220	528
4	3314	525
0	8081	525

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta)))
(cos delta)
(* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))
(* (sin phi1) (* (sin delta) (cos phi1)))
(sin phi1)
(* (sin delta) (cos phi1))
(cos theta)
(* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
1/2
(* 1/2 (cos (* 2 phi1)))
(cos (* 2 phi1))
(* 2 phi1)
2
(/ 1 (pow (* lambda1 lambda1) -1/2))
1
(pow (* lambda1 lambda1) -1/2)
(* lambda1 lambda1)
lambda1
-1/2
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* phi1 phi1))
(cos delta)
(* phi1 phi1)
(+ lambda1 (atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
lambda1
(atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
(+ (* phi1 (* phi1 -1/2)) 1)
(* phi1 (* phi1 -1/2))
phi1
(* phi1 -1/2)
-1/2
1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(cos delta)
(* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))
(+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))
(* (sin delta) (cos theta))
(cos theta)
(* phi1 (cos delta))
(atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(* (sin theta) (* (cos phi1) (sin delta)))
(sin theta)
theta
(* (cos phi1) (sin delta))
(cos phi1)
phi1
(sin delta)
delta
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(cos delta)
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))
(sin phi1)
(+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))
(* (cos delta) (sin phi1))
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)

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

localize599.0ms (2.9%)

Localize:

Found 19 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.8%	(*.f64 (cos.f64 phi1) (sin.f64 delta))
✓	accuracy	99.6%	(.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta)))
✓	accuracy	99.6%	(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
✓	accuracy	99.2%	(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
✓	accuracy	99.8%	(*.f64 (sin.f64 delta) (cos.f64 theta))
✓	accuracy	99.7%	(*.f64 (sin.f64 delta) (sin.f64 theta))
✓	accuracy	86.4%	(.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta)))
✓	accuracy	82.9%	(atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
✓	accuracy	100.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
✓	accuracy	99.9%	(atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
✓	accuracy	99.8%	(.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	100.0%	(*.f64 lambda1 lambda1)
✓	accuracy	99.8%	(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
✓	accuracy	52.9%	(pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64))
✓	accuracy	99.7%	(.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1)))
✓	accuracy	99.7%	(*.f64 (sin.f64 theta) (sin.f64 delta))
✓	accuracy	99.2%	(-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))
✓	accuracy	76.7%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))

Results

246.0ms	115×	1	valid
175.0ms	141×	0	valid

Compiler

Compiled 568 to 57 computations (90% saved)

Precisions

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

ival-mult: 54.0ms (24.5% of total)

ival-cos: 40.0ms (18.1% of total)

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

ival-div: 24.0ms (10.9% of total)

backward-pass: 19.0ms (8.6% of total)

ival-sub: 18.0ms (8.2% of total)

ival-add: 13.0ms (5.9% of total)

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

ival-pow: 10.0ms (4.5% of total)

const: 1.0ms (0.5% of total)

series50.0ms (0.2%)

Counts

24 → 720

Calls

Call 1

Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (/ 1 (pow (* lambda1 lambda1) -1/2))>
#<alt (pow (* lambda1 lambda1) -1/2)>
#<alt (* lambda1 lambda1)>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1)))>
#<alt (* (sin theta) (sin delta))>
#<alt (+ lambda1 (atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))>
#<alt (atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))>
#<alt (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))>
#<alt (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))>
#<alt (atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))>
#<alt (* (sin theta) (* (cos phi1) (sin delta)))>
#<alt (sin theta)>
#<alt (* (cos phi1) (sin delta))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* (sin phi1) (* (sin delta) (cos phi1)))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (cos theta))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))>

Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt lambda1>
#<alt (* -1 lambda1)>
#<alt (* -1 lambda1)>
#<alt (* -1 lambda1)>
#<alt (* -1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ 1 lambda1)>
#<alt (/ -1 lambda1)>
#<alt (/ -1 lambda1)>
#<alt (/ -1 lambda1)>
#<alt (/ -1 lambda1)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (pow lambda1 2)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (- 1 (pow phi1 2))>
#<alt (- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))>
#<alt (* delta (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))>
#<alt (* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))))))>
#<alt (* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))))))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* theta (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))>
#<alt (* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))))))>
#<alt (* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))))))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (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))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* 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)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt theta>
#<alt (* theta (+ 1 (* -1/6 (pow theta 2))))>
#<alt (* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))>
#<alt (* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin theta)>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* delta (cos phi1))>
#<alt (* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))>
#<alt (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))>
#<alt (* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (* (cos phi1) (sin delta))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* phi1 (sin delta))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* delta (* (cos phi1) (sin phi1)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))>
#<alt (* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))>
#<alt (* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (cos theta))>
#<alt (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 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))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (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)))))>
#<alt (- (+ (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)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* 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))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* 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))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (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))))))))>
#<alt (+ (* (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)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>

Calls

180 calls:

Time	Variable		Point	Expression
1.0ms	delta	@	inf	(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
1.0ms	theta	@	inf	(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
1.0ms	phi1	@	inf	(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
1.0ms	theta	@	0	(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
1.0ms	delta	@	0	(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))

rewrite444.0ms (2.2%)

Algorithm

1×	batch-egg-rewrite

Rules

3860×	`-lowering-.f32`
3860×	`-lowering-.f64`
2156×	`fma-lowering-fma.f32`
2156×	`fma-lowering-fma.f64`
1596×	`pow-lowering-pow.f64`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	55	356
1	322	313
2	2871	300
0	8310	300

Stop Event

1×	iter limit
1×	node limit

Counts

24 → 465

Calls

Call 1

Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))))
(- (- (cos delta) (* (* (sin phi1) (* (sin delta) (cos phi1))) (cos theta))) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(/ 1 (pow (* lambda1 lambda1) -1/2))
(pow (* lambda1 lambda1) -1/2)
(* lambda1 lambda1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 phi1)))
(* (sin theta) (sin delta))
(+ lambda1 (atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
(atan2 (* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(* (+ (* phi1 (* phi1 -1/2)) 1) (* (sin delta) (sin theta)))
(atan2 (* (sin theta) (* (cos phi1) (sin delta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))
(* (sin theta) (* (cos phi1) (sin delta)))
(sin theta)
(* (cos phi1) (sin delta))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* (sin phi1) (* (sin delta) (cos phi1)))
(* (sin delta) (sin theta))
(* (sin delta) (cos theta))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))

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

simplify502.0ms (2.4%)

Algorithm

1×	egg-herbie

Rules

6918×	`-lowering-.f32`
6918×	`-lowering-.f64`
3376×	`+-lowering-+.f64`
3376×	`+-lowering-+.f32`
1890×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	562	13730
1	2086	13052
0	8420	13052

Stop Event

1×	iter limit
1×	node limit

Counts

720 → 720

Calls

Call 1

Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(* -1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ 1 lambda1)
(/ -1 lambda1)
(/ -1 lambda1)
(/ -1 lambda1)
(/ -1 lambda1)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(pow lambda1 2)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(- 1 (pow phi1 2))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(* delta (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))
(* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))))))
(* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* theta (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))
(* theta (+ (* -1/6 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))
(* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))))))
(* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (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))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* 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)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
theta
(* theta (+ 1 (* -1/6 (pow theta 2))))
(* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))
(* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))
(sin theta)
(sin theta)
(sin theta)
(sin theta)
(sin theta)
(sin theta)
(sin theta)
(sin theta)
(sin delta)
(+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))
(+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))
(+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* delta (cos phi1))
(* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))
(* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))
(* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(* (cos phi1) (sin delta))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* phi1 (sin delta))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* delta (* (cos phi1) (sin phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (cos theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(sin delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 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))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (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)))))
(- (+ (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)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* 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))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* 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))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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))))))))
(+ (* (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)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))

Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 0 binary64) lambda1))) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (neg.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 delta (-.f64 (.f64 delta (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -1/2 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (+.f64 (cos.f64 delta) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (.f64 theta (.f64 theta (+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal -1/24 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) #s(literal 1/120 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)))))))))
(.f64 theta (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal 1/120 binary64) (.f64 theta (.f64 theta #s(literal -1/5040 binary64))))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
lambda1
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(* -1 lambda1)
(-.f64 #s(literal 0 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ 1 lambda1)
(/.f64 #s(literal 1 binary64) lambda1)
(/ -1 lambda1)
(/.f64 #s(literal -1 binary64) lambda1)
(/ -1 lambda1)
(/.f64 #s(literal -1 binary64) lambda1)
(/ -1 lambda1)
(/.f64 #s(literal -1 binary64) lambda1)
(/ -1 lambda1)
(/.f64 #s(literal -1 binary64) lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(pow lambda1 2)
(*.f64 lambda1 lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))) (-.f64 #s(literal 0 binary64) lambda1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow phi1 2)))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 theta (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (sin.f64 delta)))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) #s(literal 1/120 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))))))))
(.f64 theta (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1/120 binary64) (.f64 theta (.f64 theta #s(literal -1/5040 binary64))))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (- 1 (* 1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(- 1 (pow phi1 2))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 delta (cos.f64 theta)))) (*.f64 phi1 phi1))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))) (neg.f64 delta)) (.f64 phi1 (cos.f64 theta)))) (-.f64 #s(literal 1 binary64) (.f64 phi1 phi1)))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 (.f64 delta (-.f64 (.f64 delta (-.f64 (.f64 delta (.f64 (.f64 phi1 (cos.f64 theta)) #s(literal 1/6 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 phi1 (cos.f64 theta)))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (.f64 phi1 phi1)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (cos.f64 delta) (.f64 phi1 phi1)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1)))))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (cos.f64 delta) (.f64 phi1 phi1)) (+.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) phi1)))))
(* -1 (* (pow phi1 2) (cos delta)))
(.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (.f64 phi1 phi1)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(-.f64 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 (.f64 theta theta) (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal -1/24 binary64))) (.f64 phi1 (.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 (sin.f64 delta) (.f64 theta theta)) (.f64 phi1 #s(literal 1/720 binary64))) (.f64 #s(literal -1/24 binary64) (.f64 phi1 (sin.f64 delta))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 delta))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 delta))))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))
(.f64 (.f64 phi1 (.f64 phi1 (sin.f64 delta))) (.f64 (sin.f64 theta) #s(literal -1/2 binary64)))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta))))
(.f64 (.f64 phi1 (.f64 phi1 (sin.f64 delta))) (.f64 (sin.f64 theta) #s(literal -1/2 binary64)))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (/ (* (sin delta) (sin theta)) (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) (.f64 #s(literal -1/2 binary64) (sin.f64 theta))) (*.f64 (/.f64 (sin.f64 delta) phi1) (/.f64 (sin.f64 theta) phi1))))
(* delta (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))))))
(* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))))))))
(.f64 delta (+.f64 (.f64 (sin.f64 theta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 delta delta) (.f64 (.f64 (sin.f64 theta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow delta 2) (+ (* -1/6 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (sin.f64 theta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (sin.f64 theta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* theta (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 delta) (.f64 theta (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* theta (+ (* -1/6 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))
(.f64 theta (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))))))
(* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* 1/120 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))))))))
(.f64 theta (+.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) #s(literal 1/120 binary64)))))))
(* theta (+ (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))) (* (pow theta 2) (+ (* -1/6 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2))))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))) (* 1/120 (* (sin delta) (+ 1 (* -1/2 (pow phi1 2)))))))))))
(.f64 theta (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 (.f64 theta theta) (.f64 (.f64 theta theta) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (+.f64 #s(literal 1/120 binary64) (.f64 theta (*.f64 theta #s(literal -1/5040 binary64)))))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(* (sin delta) (* (sin theta) (+ 1 (* -1/2 (pow phi1 2)))))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
(* theta (* (cos phi1) (sin delta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(.f64 theta (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(.f64 theta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) #s(literal 1/120 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)))))))))
(.f64 theta (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 delta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal 1/120 binary64) (.f64 theta (.f64 theta #s(literal -1/5040 binary64))))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (.f64 (.f64 phi1 phi1) (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (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))))))))
(+.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (.f64 (.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))) (.f64 (.f64 phi1 phi1) (.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* 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)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 theta))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 theta)))
theta
(* theta (+ 1 (* -1/6 (pow theta 2))))
(.f64 theta (+.f64 #s(literal 1 binary64) (.f64 theta (*.f64 theta #s(literal -1/6 binary64)))))
(* theta (+ 1 (* (pow theta 2) (- (* 1/120 (pow theta 2)) 1/6))))
(.f64 theta (+.f64 #s(literal 1 binary64) (.f64 (.f64 theta theta) (+.f64 #s(literal -1/6 binary64) (.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ 1 (* (pow theta 2) (- (* (pow theta 2) (+ 1/120 (* -1/5040 (pow theta 2)))) 1/6))))
(.f64 theta (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (.f64 theta (*.f64 theta #s(literal -1/5040 binary64))))))))))
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin theta)
(sin.f64 theta)
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow phi1 2) (sin delta))))
(.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))))
(+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow phi1 2) (sin delta))))))
(+.f64 (sin.f64 delta) (.f64 phi1 (.f64 phi1 (.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))))
(+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))))) (.f64 phi1 (.f64 phi1 (.f64 (.f64 phi1 phi1) (.f64 (sin.f64 delta) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64)))))))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* delta (cos phi1))
(*.f64 (cos.f64 phi1) delta)
(* delta (+ (cos phi1) (* -1/6 (* (pow delta 2) (cos phi1)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 phi1)))
(* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow delta 2) (cos phi1)))))))
(.f64 delta (+.f64 (cos.f64 phi1) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (cos phi1) (* (pow delta 2) (+ (* -1/6 (cos phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos phi1))) (* 1/120 (cos phi1))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 phi1)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/3 binary64)))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal -1/3 binary64) (.f64 (.f64 phi1 phi1) #s(literal 2/45 binary64))))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(.f64 phi1 (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 (+.f64 #s(literal -1/3 binary64) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 2/45 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/315 binary64))))))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))
(.f64 phi1 (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 (.f64 phi1 (sin.f64 delta))) #s(literal -2/3 binary64))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))
(.f64 phi1 (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) #s(literal -2/3 binary64)) (.f64 phi1 (.f64 phi1 (*.f64 (sin.f64 delta) #s(literal 2/15 binary64))))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))
(.f64 phi1 (+.f64 (sin.f64 delta) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) #s(literal -2/3 binary64)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) #s(literal 2/15 binary64)) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (sin.f64 delta) #s(literal -1/144 binary64)) (*.f64 (sin.f64 delta) #s(literal -29/5040 binary64))))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* delta (* (cos phi1) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 delta (sin.f64 phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))
(.f64 delta (+.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (.f64 (.f64 delta delta) (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1)))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(.f64 delta (+.f64 (sin.f64 theta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta)) (.f64 (.f64 delta delta) (.f64 (.f64 delta delta) (.f64 (sin.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(.f64 theta (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (sin.f64 delta)))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 (.f64 theta theta) #s(literal 1/120 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))))))))
(.f64 theta (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 theta (.f64 theta #s(literal -1/6 binary64)))) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1/120 binary64) (.f64 theta (.f64 theta #s(literal -1/5040 binary64))))) (.f64 (.f64 theta theta) (*.f64 theta theta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (cos theta))
(*.f64 delta (cos.f64 theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(.f64 delta (+.f64 (cos.f64 theta) (.f64 (.f64 delta delta) (.f64 (cos.f64 theta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 delta delta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(.f64 delta (+.f64 (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)) (.f64 (.f64 (cos.f64 theta) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 delta delta)) #s(literal 1/120 binary64))) (.f64 (.f64 delta delta) (*.f64 delta delta)))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (.f64 (.f64 (sin.f64 delta) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 theta theta)))) (.f64 (.f64 theta theta) (.f64 theta theta))))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(* (cos theta) (sin delta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (.f64 delta (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 delta)) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (+ 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))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 delta (-.f64 (.f64 delta (-.f64 (+.f64 (.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) delta)) (.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal -1/24 binary64) (.f64 theta theta)) #s(literal 1/2 binary64))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (+ (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)))))
(+.f64 (.f64 theta (.f64 theta (+.f64 (.f64 theta (.f64 theta (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 theta theta)) #s(literal -1/24 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))))))
(* phi1 (* (cos theta) (sin delta)))
(.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 #s(literal -2/3 binary64) phi1))))))
(* 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))))
(.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (+.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (.f64 (.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+.f64 (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) delta)))))
(+ (* 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))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 delta (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (.f64 delta (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (.f64 theta theta))) (sin.f64 phi1))))
(+ (* (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))))))))
(+.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/24 binary64) (.f64 theta theta))))))
(+ (* (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)))))))))
(+.f64 (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (cos.f64 delta) (sin.f64 phi1)))) (.f64 (.f64 theta theta) (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (.f64 (sin.f64 phi1) #s(literal -1/2 binary64))) (.f64 (.f64 theta theta) (.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (*.f64 theta theta))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))

eval270.0ms (1.3%)

Compiler: Compiled 54240 to 2595 computations (95.2% saved)

prune306.0ms (1.5%)

Pruning

58 alts after pruning (52 fresh and 6 done)

	Pruned	Kept	Total
New	1312	29	1341
Fresh	13	23	36
Picked	2	3	5
Done	0	3	3
Total	1327	58	1385

Accuracy

100.0%

Counts

1385 → 58

Alt Table

Click to see full alt table

Status	Accuracy	Program
	38.1%	(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
	20.7%	(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
	38.1%	(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
	16.4%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	15.4%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
	28.9%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (/.f64 (+.f64 (.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) theta)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) delta)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))) (.f64 (+.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 2 binary64))))))))))) (.f64 (+.f64 (cos.f64 delta) (.f64 (cos.f64 phi1) (.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
	29.1%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta))) (.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
	23.4%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
	23.9%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
✓	29.1%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	16.6%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))))
	12.8%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
	20.3%	(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta))
	17.1%	(atan2.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
	13.9%	(atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) theta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))))))
	49.1%	(/.f64 (+.f64 (.f64 lambda1 (.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) (-.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1))))
	18.5%	(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
✓	20.8%	(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
	34.8%	(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
	36.3%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (exp.f64 (log.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
	49.7%	(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) (-.f64 (.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))) #s(literal 2 binary64)))))
✓	73.2%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
	2.1%	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
	34.8%	(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
	10.7%	(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
	2.1%	(-.f64 #s(literal 0 binary64) lambda1)
	99.8%	(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (.f64 (cos.f64 delta) (sin.f64 phi1)))))) lambda1)
	77.1%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
	67.2%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
	52.8%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))))
	77.4%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
✓	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
	90.0%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/3 binary64)))))))))
	74.3%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
	85.4%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	99.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
	85.6%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)))))))
	83.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
	90.8%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
	68.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
	64.2%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	67.5%	(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
	87.6%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
	73.8%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
	75.5%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
	75.4%	(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
	38.0%	(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
	90.8%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
	83.9%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
	80.6%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
	99.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
	99.6%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (/.f64 #s(literal 1 binary64) lambda1)))))
✓	99.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
	90.7%	(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))))))
	34.8%	(exp.f64 (log.f64 lambda1))
✓	73.4%	lambda1

Compiler

Compiled 5616 to 1631 computations (71% saved)

regimes304.0ms (1.5%)

Counts

106 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

73.0ms	phi1
46.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))))))))
37.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)))))))))
29.0ms	lambda1

Results

Accuracy	Segments	Branch
99.8%	1	`lambda1`
99.8%	1	`phi1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`
99.8%	1	`(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (.f64 (sin.f64 phi1) (cos.f64 delta)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))`
99.8%	1	`(atan2.f64 (.f64 (.f64 (sin.f64 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 104 to 70 computations (32.7% saved)

regimes184.0ms (0.9%)

Counts

78 → 1

Calls

Call 1

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

Outputs

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

Calls

5 calls:

41.0ms	theta
39.0ms	lambda1
34.0ms	delta
26.0ms	phi1
22.0ms	phi2

Results

Accuracy	Segments	Branch
99.8%	1	`lambda1`
99.8%	1	`phi1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes161.0ms (0.8%)

Counts

77 → 1

Calls

Call 1

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

Outputs

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

Calls

5 calls:

37.0ms	phi2
32.0ms	phi1
25.0ms	delta
21.0ms	lambda1
20.0ms	theta

Results

Accuracy	Segments	Branch
99.8%	1	`lambda1`
99.8%	1	`phi1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes163.0ms (0.8%)

Counts

72 → 1

Calls

Call 1

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

Outputs

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

Calls

5 calls:

37.0ms	phi1
33.0ms	phi2
27.0ms	delta
19.0ms	lambda1
19.0ms	theta

Results

Accuracy	Segments	Branch
99.8%	1	`lambda1`
99.8%	1	`phi2`
99.8%	1	`delta`
99.8%	1	`theta`
99.8%	1	`phi1`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes133.0ms (0.6%)

Counts

70 → 1

Calls

Call 1

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

Calls

5 calls:

43.0ms	delta
20.0ms	phi2
19.0ms	lambda1
18.0ms	theta
18.0ms	phi1

Results

Accuracy	Segments	Branch
94.6%	1	`lambda1`
94.6%	1	`phi1`
94.6%	1	`phi2`
94.6%	1	`delta`
94.6%	1	`theta`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes95.0ms (0.5%)

Counts

52 → 1

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 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)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (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 delta) (.f64 phi1 (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.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 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (.f64 (.f64 phi1 phi1) (-.f64 (/.f64 (.f64 #s(literal 1 binary64) (-.f64 (/.f64 (cos.f64 delta) phi1) (.f64 (sin.f64 delta) (cos.f64 theta)))) phi1) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 theta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) delta))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 theta (+.f64 (sin.f64 delta) (.f64 (.f64 theta theta) (.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (.f64 #s(literal 1/120 binary64) (.f64 theta theta))))))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) (.f64 phi1 (cos.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 phi1 (sin.f64 delta)) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(atan2.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))

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

Calls

5 calls:

27.0ms	delta
18.0ms	phi1
16.0ms	phi2
14.0ms	theta
14.0ms	lambda1

Results

Accuracy	Segments	Branch
93.5%	1	`delta`
93.5%	1	`lambda1`
93.5%	1	`phi1`
93.5%	1	`theta`
93.5%	1	`phi2`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes57.0ms (0.3%)

Counts

35 → 3

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 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)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 phi1 (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) phi1)))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))

Outputs

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

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

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

Calls

5 calls:

12.0ms	theta
11.0ms	delta
11.0ms	phi1
10.0ms	phi2
9.0ms	lambda1

Results

Accuracy	Segments	Branch
94.2%	3	`delta`
90.8%	1	`lambda1`
90.8%	1	`phi1`
90.8%	1	`phi2`
90.8%	1	`theta`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes42.0ms (0.2%)

Counts

27 → 1

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))))))

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))

Calls

4 calls:

15.0ms	lambda1
9.0ms	delta
8.0ms	theta
8.0ms	phi1

Results

Accuracy	Segments	Branch
90.8%	1	`lambda1`
90.8%	1	`phi1`
90.8%	1	`theta`
90.8%	1	`delta`

Compiler

Compiled 24 to 20 computations (16.7% saved)

regimes43.0ms (0.2%)

Counts

23 → 3

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 delta (.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(atan2.f64 (.f64 (sin.f64 theta) (.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 delta))

Outputs

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

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

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

Calls

5 calls:

13.0ms	phi1
7.0ms	theta
7.0ms	phi2
7.0ms	lambda1
7.0ms	delta

Results

Accuracy	Segments	Branch
80.6%	1	`phi2`
86.5%	3	`delta`
80.6%	1	`lambda1`
87.2%	3	`phi1`
80.6%	1	`theta`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes9.0ms (0%)

Counts

20 → 3

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))

Outputs

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

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

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

Calls

1 calls:

7.0ms

phi1

Results

Accuracy	Segments	Branch
86.8%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes12.0ms (0.1%)

Counts

17 → 3

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1))))

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

Calls

2 calls:

5.0ms	phi1
5.0ms	delta

Results

Accuracy	Segments	Branch
82.1%	3	`delta`
85.0%	3	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes33.0ms (0.2%)

Counts

16 → 3

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))
(+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 lambda1)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -1 binary64)))

Outputs

lambda1

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

lambda1

Calls

5 calls:

12.0ms	phi2
5.0ms	phi1
5.0ms	lambda1
5.0ms	theta
5.0ms	delta

Results

Accuracy	Segments	Branch
73.4%	1	`delta`
73.4%	1	`lambda1`
73.4%	1	`theta`
73.4%	1	`phi2`
78.4%	3	`phi1`

Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes19.0ms (0.1%)

Accuracy

Total -46.4b remaining (-272.8%)

Threshold costs -46.4b (-272.8%)

Counts

13 → 1

Calls

Call 1

Inputs
lambda1
(-.f64 #s(literal 0 binary64) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 lambda1 lambda1) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda1)) #s(literal -1/2 binary64))
(exp.f64 (log.f64 lambda1))
(pow.f64 (sqrt.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal -1/2 binary64)) #s(literal -2 binary64))
(pow.f64 (pow.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (exp.f64 (-.f64 #s(literal 0 binary64) (log.f64 lambda1))))
(/.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (.f64 (.f64 lambda1 lambda1) (.f64 lambda1 lambda1))) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 lambda1))))

Outputs
lambda1

Calls

4 calls:

6.0ms	phi1
4.0ms	theta
4.0ms	phi2
4.0ms	lambda1

Results

Accuracy	Segments	Branch
73.4%	1	`lambda1`
73.4%	1	`phi2`
73.4%	1	`theta`
73.4%	1	`phi1`

Compiler

Compiled 24 to 20 computations (16.7% saved)

bsearch127.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
74.0ms	5.098618707239297e-11	2506.459209182834
47.0ms	-103.39158651217035	-0.6849892926262358

Results

111.0ms

272×

valid

Compiler

Compiled 794 to 591 computations (25.6% saved)

Precisions

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

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

ival-mult: 20.0ms (20.3% of total)

ival-cos: 16.0ms (16.3% of total)

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

ival-add: 3.0ms (3.1% of total)

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch140.0ms (0.7%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	1.5526338305582794e-38	1.0632605211693229e-32
79.0ms	-3.268845542569935e+30	-3.448837697275029e+20

Results

103.0ms

304×

valid

Compiler

Compiled 920 to 676 computations (26.5% saved)

Precisions

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

ival-cos: 39.0ms (43.9% of total)

ival-sin: 25.0ms (28.1% of total)

ival-mult: 12.0ms (13.5% of total)

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

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

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch129.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
43.0ms	1.5526338305582794e-38	1.0632605211693229e-32
78.0ms	-5643.893844832282	-0.0025092459744905362

Results

81.0ms

288×

valid

Compiler

Compiled 802 to 570 computations (28.9% saved)

Precisions

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

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

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

ival-mult: 15.0ms (22.3% of total)

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

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

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch106.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
42.0ms	1.0632605211693229e-32	2.2423371018133049e-26
57.0ms	-5643.893844832282	-0.0025092459744905362

Results

89.0ms

288×

valid

Compiler

Compiled 532 to 390 computations (26.7% saved)

Precisions

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

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

ival-cos: 18.0ms (23.9% of total)

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

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

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

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

bsearch124.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	1.0632605211693229e-32	2.2423371018133049e-26
66.0ms	-3.448837697275029e+20	-20481852253244.316

Results

103.0ms

288×

valid

Compiler

Compiled 658 to 480 computations (27.1% saved)

Precisions

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

ival-cos: 39.0ms (43.6% of total)

ival-sin: 25.0ms (27.9% of total)

ival-mult: 12.0ms (13.4% of total)

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

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

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

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

const: 0.0ms (0% of total)

backward-pass: 0.0ms (0% of total)

simplify50.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

284×	`unsub-neg_binary64`
168×	`neg-mul-1_binary64`
112×	`+-commutative_binary64`
104×	`*-commutative_binary64`
98×	`distribute-neg-out_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	112	376
1	212	376
2	293	376
3	361	376
4	439	376
5	493	376
6	520	376
7	646	376
8	797	376
9	800	376

Stop Event

1×

saturated

Calls

Call 1

Inputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 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) (+.f64 (.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(if (<=.f64 delta #s(literal -3152519739159347/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 6456360425798343/36893488147419103232 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(if (<=.f64 phi1 #s(literal -350000000000000000000 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -1 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -2206763817411543/2251799813685248 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -21000000000000 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
lambda1

Outputs
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (-.f64 (cos.f64 delta) (.f64 (.f64 (sin.f64 phi1) (.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))) (.f64 (cos.f64 delta) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (-.f64 (cos.f64 delta) (.f64 (sin.f64 delta) (.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 theta))))) (.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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) (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal -1 binary64) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (.f64 (sin.f64 delta) (.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (.f64 (sin.f64 phi1) (+.f64 (.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(if (<=.f64 delta #s(literal -3152519739159347/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 6456360425798343/36893488147419103232 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -3152519739159347/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta))) (if (<=.f64 delta #s(literal 6456360425798343/36893488147419103232 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)))
(if (<=.f64 phi1 #s(literal -350000000000000000000 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -350000000000000000000 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) delta)) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) delta)) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -1 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -1 binary64)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) delta)) (cos.f64 delta)) lambda1))) (if (<=.f64 phi1 #s(literal 959110449498405/91343852333181432387730302044767688728495783936 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 theta) delta)) (cos.f64 delta)) lambda1)))))
(if (<=.f64 phi1 #s(literal -2206763817411543/2251799813685248 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -2206763817411543/2251799813685248 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -21000000000000 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64))) #s(literal 1 binary64)) (.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -21000000000000 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 3832940580997451/174224571863520493293247799005065324265472 binary64)) (+.f64 lambda1 (atan2.f64 (.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
lambda1

soundness3.6s (17.7%)

Rules

7144×	`-lowering-.f32`
7144×	`-lowering-.f64`
7016×	`-lowering-.f32`
7016×	`-lowering-.f64`
6918×	`-lowering-.f32`

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	52	564
1	358	529
2	2742	510
0	8614	510
0	22	120
1	102	120
2	894	117
0	8191	117
0	542	22462
1	2032	22055
2	7138	22055
0	8102	22055
0	588	26746
1	2184	25509
2	7728	25509
0	8517	25509
0	562	13730
1	2086	13052
0	8420	13052
0	56	536
1	361	494
2	3387	473
0	8474	473
0	240	5022
1	897	4909
2	3644	4774
3	6813	4765
0	8648	4765

Stop Event

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

Compiler

Compiled 1152 to 609 computations (47.1% saved)

preprocess154.0ms (0.7%)

Remove: (abs phi2)
Compiler: Compiled 1594 to 698 computations (56.2% saved)

Iter	Nodes	Cost
0	112	376
1	212	376
2	293	376
3	361	376
4	439	376
5	493	376
6	520	376
7	646	376
8	797	376
9	800	376

Iter	Nodes	Cost
0	112	376
1	212	376
2	293	376
3	361	376
4	439	376
5	493	376
6	520	376
7	646	376
8	797	376
9	800	376

analyze1.8s (8.6%)

sample3.7s (18.2%)

preprocess184.0ms (0.9%)

explain360.0ms (1.7%)

eval0.0ms (0%)

prune1.0ms (0%)

simplify106.0ms (0.5%)

localize141.0ms (0.7%)

series50.0ms (0.2%)

rewrite406.0ms (2%)

simplify384.0ms (1.9%)

eval80.0ms (0.4%)

prune101.0ms (0.5%)

simplify224.0ms (1.1%)

localize417.0ms (2%)

series129.0ms (0.6%)

rewrite503.0ms (2.4%)

simplify626.0ms (3%)

eval474.0ms (2.3%)

prune283.0ms (1.4%)

simplify214.0ms (1%)

localize576.0ms (2.8%)

series94.0ms (0.5%)

rewrite418.0ms (2%)

simplify589.0ms (2.9%)

eval353.0ms (1.7%)

prune270.0ms (1.3%)

simplify195.0ms (0.9%)

localize599.0ms (2.9%)

series50.0ms (0.2%)

rewrite444.0ms (2.2%)

simplify502.0ms (2.4%)

eval270.0ms (1.3%)

prune306.0ms (1.5%)

regimes304.0ms (1.5%)

regimes184.0ms (0.9%)

regimes161.0ms (0.8%)

regimes163.0ms (0.8%)

regimes133.0ms (0.6%)

regimes95.0ms (0.5%)

regimes57.0ms (0.3%)

regimes42.0ms (0.2%)

regimes43.0ms (0.2%)

regimes9.0ms (0%)

regimes12.0ms (0.1%)

regimes33.0ms (0.2%)

regimes19.0ms (0.1%)

bsearch127.0ms (0.6%)

bsearch140.0ms (0.7%)

bsearch129.0ms (0.6%)

bsearch106.0ms (0.5%)

bsearch124.0ms (0.6%)

simplify50.0ms (0.2%)

soundness3.6s (17.7%)

preprocess154.0ms (0.7%)

end0.0ms (0%)

Profiling

Iter	Nodes	Cost
0	112	376
1	212	376
2	293	376
3	361	376
4	439	376
5	493	376
6	520	376
7	646	376
8	797	376
9	800	376