Destination given bearing on a great circle

Time bar (total: 22.9s)

analyze1.7s (7.6%)

Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
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.2s
ival-sin: 421.0ms (36.2% of total)
ival-mult: 335.0ms (28.8% of total)
ival-cos: 262.0ms (22.5% of total)
ival-asin: 54.0ms (4.6% of total)
ival-add: 39.0ms (3.4% of total)
ival-atan2: 28.0ms (2.4% of total)
ival-sub: 19.0ms (1.6% of total)
const: 3.0ms (0.3% of total)
backward-pass: 2.0ms (0.2% of total)

sample3.5s (15.1%)

Results
2.9s8256×0valid
Precisions
Click to see histograms. Total time spent on operations: 2.3s
ival-sin: 855.0ms (37.2% of total)
ival-cos: 616.0ms (26.8% of total)
ival-mult: 390.0ms (17% of total)
ival-asin: 172.0ms (7.5% of total)
ival-atan2: 108.0ms (4.7% of total)
ival-add: 105.0ms (4.6% of total)
ival-sub: 39.0ms (1.7% of total)
const: 8.0ms (0.3% of total)
backward-pass: 4.0ms (0.2% of total)
Bogosity

preprocess190.0ms (0.8%)

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)

IterNodesCost
0179689
1415684
2772661
31578659
43812659
57596659
02232
14032
26931
39531
411831
518731
632931
747831
872231
9114531
10136531
11159431
12184131
13222831
14284531
15333231
16367031
17424231
18424431
19425731
20427731
21428531
0428531
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)

explain485.0ms (2.1%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
70-2(6.125667332592325e-196 -2.887055601432399e+127 2.4914239036102093e+223 1.7658854421010694e+281 3.513769566113808e+83)(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
10-1(-3.1376459402520092e-115 -2.3947741629385763e+301 6.822049482379878e-169 -1.0916452819273008e+285 42793537102.32612)(+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
00-0-(cos.f64 phi1)
00-0-(asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
00-0-(cos.f64 delta)
00-0-(sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))
00-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)))))))))
00-0-(sin.f64 delta)
00-0-(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))
00-0-(*.f64 (cos.f64 phi1) (sin.f64 delta))
00-0-phi1
00-0-(*.f64 (sin.f64 theta) (sin.f64 delta))
00-0-lambda1
00-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))))))))
00-0-(sin.f64 phi1)
00-0-(*.f64 (sin.f64 phi1) (cos.f64 delta))
00-0-(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
00-0-delta
00-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))))))
00-0-(sin.f64 theta)
00-0-theta
00-0-(cos.f64 theta)
Results
379.0ms512×0valid
Compiler

Compiled 444 to 71 computations (84% saved)

Precisions
Click to see histograms. Total time spent on operations: 275.0ms
ival-sin: 143.0ms (52% of total)
ival-mult: 47.0ms (17.1% of total)
ival-cos: 46.0ms (16.7% of total)
ival-sub: 17.0ms (6.2% of total)
ival-asin: 8.0ms (2.9% of total)
ival-atan2: 7.0ms (2.5% of total)
ival-add: 5.0ms (1.8% of total)
const: 1.0ms (0.4% of total)
backward-pass: 0.0ms (0% of total)

eval12.0ms (0.1%)

Compiler

Compiled 38 to 23 computations (39.5% saved)

prune1.0ms (0%)

Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
▶99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (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))))))))))
Compiler

Compiled 76 to 46 computations (39.5% saved)

simplify113.0ms (0.5%)

Algorithm
1×egg-herbie
Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(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-diff0
(+.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)))))))))
✓cost-diff0
(sin.f64 delta)
✓cost-diff0
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
✓cost-diff0
(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)))))))))
✓cost-diff0
(+.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))))))))))
Rules
1362×fnmadd-define
1142×fma-define
796×sum3-define
780×fnmsub-define
780×fmsub-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
034380
167380
288374
3108374
4131374
5200374
6342374
7490374
8737374
91160374
101380374
111609374
121856374
132243374
142856374
153334374
163672374
174243374
184245374
194258374
204278374
214286374
04286374
Stop Event
1×iter limit
1×saturated
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))))
lambda1
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))))
(* (sin delta) (* (cos phi1) (sin theta)))
(sin delta)
delta
(* (cos phi1) (sin theta))
(cos phi1)
phi1
(sin theta)
theta
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
(cos delta)
(* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))
(sin phi1)
(sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))
(asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(+ (* (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 (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 delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 delta) (* (cos phi1) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(sin delta)
(sin.f64 delta)
delta
(* (cos phi1) (sin theta))
(*.f64 (cos.f64 phi1) (sin.f64 theta))
(cos phi1)
(cos.f64 phi1)
phi1
(sin theta)
(sin.f64 theta)
theta
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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))
(* (sin delta) (* (cos phi1) (cos theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(* (cos phi1) (cos theta))
(*.f64 (cos.f64 phi1) (cos.f64 theta))
(cos theta)
(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)))))))))
(+.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)

localize344.0ms (1.5%)

Localize:

Found 8 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
✓accuracy99.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))))))
✓accuracy99.3%
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
✓accuracy99.6%
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
✓accuracy99.6%
(*.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)))))))
✓accuracy99.3%
(-.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))))))))
Results
275.0ms256×0valid
Compiler

Compiled 400 to 36 computations (91% saved)

Precisions
Click to see histograms. Total time spent on operations: 96.0ms
ival-sin: 27.0ms (28.1% of total)
ival-atan2: 20.0ms (20.8% of total)
ival-mult: 18.0ms (18.7% of total)
ival-cos: 16.0ms (16.7% of total)
ival-asin: 8.0ms (8.3% of total)
ival-add: 5.0ms (5.2% of total)
ival-sub: 2.0ms (2.1% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

series44.0ms (0.2%)

Counts
15 → 528
Calls
Call 1
Inputs
#<alt (+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))))>
#<alt (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))))>
#<alt (* (sin delta) (* (cos phi1) (sin theta)))>
#<alt (sin delta)>
#<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 (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))>
#<alt (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))>
#<alt (* (sin delta) (* (cos phi1) (cos theta)))>
#<alt (- (cos delta) (* (sin phi1) (sin (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))))))>
#<alt (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 (* 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 (* (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>
#<alt (* delta (+ 1 (* -1/6 (pow delta 2))))>
#<alt (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))>
#<alt (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (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 (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 (* 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 (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 (* 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 (- 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 (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)))))>
Calls

132 calls:

TimeVariablePointExpression
4.0ms
phi1
@inf
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
3.0ms
theta
@0
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
2.0ms
delta
@inf
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
2.0ms
delta
@inf
(* (sin delta) (* (cos phi1) (sin theta)))
1.0ms
theta
@-inf
(* (sin delta) (* (cos phi1) (sin theta)))

rewrite364.0ms (1.6%)

Algorithm
1×batch-egg-rewrite
Rules
2898×*-lowering-*.f32
2898×*-lowering-*.f64
2650×/-lowering-/.f32
2650×/-lowering-/.f64
1750×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
034245
1110245
2325239
31670239
08416239
Stop Event
1×iter limit
1×node limit
Counts
15 → 482
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))))
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))))
(* (sin delta) (* (cos phi1) (sin theta)))
(sin delta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
(* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))))
(asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(* (sin delta) (* (cos phi1) (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))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (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 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(sin.f64 delta)
(*.f64 (sin.f64 delta) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (sin.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (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 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (sin.f64 theta)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(+.f64 (fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta theta))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 delta theta)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 delta theta)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))))
(/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta))) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))))
(*.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 1/4 binary64))
(+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(+.f64 (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(+.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 #s(literal 0 binary64) (*.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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.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 (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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) #s(literal -2 binary64)) (*.f64 (sin.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 #s(literal 0 binary64) (*.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) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (/.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 (cos.f64 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) (-.f64 (*.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)))
(-.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))))
(-.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))))))
(fma.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.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 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (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 (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) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.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 -1 binary64) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.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))) (sin.f64 (/.f64 (+.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 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 -2 binary64)) (cos.f64 delta))
(fma.f64 (+.f64 (-.f64 #s(literal 0 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)))))))) (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) (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 #s(literal -1 binary64) (*.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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1 binary64)) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(neg.f64 (-.f64 (*.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)))
(+.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 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))))))) #s(literal 2 binary64))))
(+.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 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 (fma.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 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/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)))))))))) (fma.f64 #s(literal -1/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))))))) (*.f64 #s(literal 1/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))))))))))
(exp.f64 (*.f64 (log.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 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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)) (/.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)) #s(literal 4 binary64)) (/.f64 (*.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)))
(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 (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 (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 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (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 (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 (sin.f64 delta) (*.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 (-.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 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))))))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (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 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 (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 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (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 #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) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.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 (cos.f64 phi1) (cos.f64 theta))) (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 (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))))))
(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))))))
(neg.f64 (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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 #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) (neg.f64 (-.f64 #s(literal 0 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 4 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 #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)))))))))))
(/.f64 (+.f64 (-.f64 #s(literal 0 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)))))))) (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 0 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 (*.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 (+.f64 (sin.f64 (-.f64 phi1 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (sin.f64 (+.f64 phi1 (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 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal -4 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))))))) (/.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 2 binary64)) (*.f64 #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))))))))))
(/.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) (-.f64 #s(literal 0 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 (-.f64 #s(literal 2 binary64) (*.f64 (/.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)))))))) (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 (/.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 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 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))))))))) (*.f64 (/.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 1 binary64))) (*.f64 (/.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)))))))) (/.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))))))))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.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)))))))) (-.f64 #s(literal 0 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)))))))))) (*.f64 (/.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 -2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 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 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 (-.f64 (*.f64 (-.f64 #s(literal 0 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)))))))) (/.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 -2 binary64)) (*.f64 #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))))))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 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 -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 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 (*.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))
(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 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.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))) (sin.f64 (/.f64 (+.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 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 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 (-.f64 #s(literal 0 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)))))))) (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/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))))))) (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/2 binary64) (pow.f64 (/.f64 #s(literal 1 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 binary64)))
(*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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 1/4 binary64))
(+.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 #s(literal 0 binary64) (asin.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 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal -2 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 (PI.f64) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (PI.f64)) #s(literal 1/2 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 (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 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 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 (PI.f64) #s(literal -2 binary64)))
(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)))))))
(fma.f64 #s(literal 1 binary64) (/.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)))))))
(fma.f64 (pow.f64 (PI.f64) #s(literal 2/3 binary64)) (/.f64 (cbrt.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)))))))
(fma.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.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)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (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)))))))
(fma.f64 #s(literal 1/2 binary64) (PI.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)))))))
(fma.f64 #s(literal -1 binary64) (acos.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)))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.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 phi1) (cos.f64 theta))) (sin.f64 delta)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (cos.f64 phi1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta)) #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 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (cos.f64 theta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1 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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (cos.f64 theta) (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta)) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (+.f64 delta phi1)) (sin.f64 (-.f64 delta phi1))) (cos.f64 theta)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)))))
(+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(+.f64 (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(+.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 #s(literal 0 binary64) (*.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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.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 (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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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 (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) #s(literal 2 binary64)) #s(literal -2 binary64)) (*.f64 (sin.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 #s(literal 0 binary64) (*.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) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))
(+.f64 (-.f64 (cos.f64 delta) (/.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 (cos.f64 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) (-.f64 (*.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)))
(-.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))))
(-.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))))))
(fma.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.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 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (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 (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) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.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 -1 binary64) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.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))) (sin.f64 (/.f64 (+.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 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 -2 binary64)) (cos.f64 delta))
(fma.f64 (+.f64 (-.f64 #s(literal 0 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)))))))) (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) (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 #s(literal -1 binary64) (*.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 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1 binary64)) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 delta)))
(neg.f64 (-.f64 (*.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)))
(+.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 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))))))) #s(literal 2 binary64))))
(+.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 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 (fma.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 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/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)))))))))) (fma.f64 #s(literal -1/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))))))) (*.f64 #s(literal 1/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))))))))))
(exp.f64 (*.f64 (log.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 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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)) (/.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)) #s(literal 4 binary64)) (/.f64 (*.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)))
(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 (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 (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 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (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 (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 (sin.f64 delta) (*.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 (-.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 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))))))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (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 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 (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 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (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 #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) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.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 (cos.f64 phi1) (cos.f64 theta))) (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 (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))))))
(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))))))
(neg.f64 (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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 #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) (neg.f64 (-.f64 #s(literal 0 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 4 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 #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)))))))))))
(/.f64 (+.f64 (-.f64 #s(literal 0 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)))))))) (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 0 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 (*.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 (+.f64 (sin.f64 (-.f64 phi1 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (sin.f64 (+.f64 phi1 (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 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (sin.f64 phi1)))) #s(literal -4 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))))))) (/.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 2 binary64)) (*.f64 #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))))))))))
(/.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) (-.f64 #s(literal 0 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 (-.f64 #s(literal 2 binary64) (*.f64 (/.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)))))))) (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 (/.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 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 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))))))))) (*.f64 (/.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 1 binary64))) (*.f64 (/.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)))))))) (/.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))))))))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.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)))))))) (-.f64 #s(literal 0 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)))))))))) (*.f64 (/.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 -2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 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 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 (-.f64 (*.f64 (-.f64 #s(literal 0 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)))))))) (/.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 -2 binary64)) (*.f64 #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))))))))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 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 -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 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 (*.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))
(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 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 phi1 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.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))) (sin.f64 (/.f64 (+.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 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 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 (-.f64 #s(literal 0 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)))))))) (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/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))))))) (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/2 binary64) (pow.f64 (/.f64 #s(literal 1 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 binary64)))
(*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.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 1/4 binary64))
(+.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 #s(literal 0 binary64) (asin.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 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal -2 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 (PI.f64) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 0 binary64) (PI.f64)) #s(literal 1/2 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 (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 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 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 (PI.f64) #s(literal -2 binary64)))
(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)))))))
(fma.f64 #s(literal 1 binary64) (/.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)))))))
(fma.f64 (pow.f64 (PI.f64) #s(literal 2/3 binary64)) (/.f64 (cbrt.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)))))))
(fma.f64 (sqrt.f64 (PI.f64)) (/.f64 (sqrt.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)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (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)))))))
(fma.f64 #s(literal 1/2 binary64) (PI.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)))))))
(fma.f64 #s(literal -1 binary64) (acos.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)))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))

simplify765.0ms (3.3%)

Algorithm
1×egg-herbie
Rules
5666×*-lowering-*.f32
5666×*-lowering-*.f64
4014×+-lowering-+.f64
4014×+-lowering-+.f32
1278×fma-lowering-fma.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
030310348
111439963
246349683
080979683
Stop Event
1×iter limit
1×node limit
Counts
528 → 528
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)))))))
(* 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 (* (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
(* delta (+ 1 (* -1/6 (pow delta 2))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(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 (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))))))
(* 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)))))
(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)))))
(* 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)))
(- 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)))))
(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)))))
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)))))))
(* 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 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 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 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (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 (*.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 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.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 phi1 phi1) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 phi1 phi1)) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.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 (* (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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.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 theta (*.f64 theta (*.f64 (*.f64 theta theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64))))))) (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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
(* delta (+ 1 (* -1/6 (pow delta 2))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64))))))))
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.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 theta (*.f64 theta (*.f64 (*.f64 theta theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64))))))) (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 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 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (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 (*.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 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.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 phi1 phi1) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 phi1 phi1)) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.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 theta theta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 theta theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (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 (sin.f64 theta) (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))))
(* 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 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (sin.f64 theta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (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 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))
(- (+ 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 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1))))
(- (+ 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 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.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))))))
(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 phi1 (-.f64 #s(literal 0 binary64) (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 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 (-.f64 (cos.f64 delta) (*.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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/24 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.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))))))
(* 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 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta))))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(+ (* 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 delta #s(literal -1/2 binary64))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (sin.f64 phi1) (*.f64 (cos.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 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.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 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 phi1) (*.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)))))
(* (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)))))
(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)))))
(* delta (* (cos phi1) (cos theta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta)))
(* 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 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 delta (*.f64 (cos.f64 phi1) delta))) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (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) (* (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 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #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 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (*.f64 phi1 (*.f64 phi1 (cos.f64 theta)))) (+.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.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) (* (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 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.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 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 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)))
(- 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 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))
(- (+ 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 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1))))
(- (+ 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 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.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))))))
(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 phi1 (-.f64 #s(literal 0 binary64) (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 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 (-.f64 (cos.f64 delta) (*.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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/24 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.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))))))
(* 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 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta))))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(+ (* 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 delta #s(literal -1/2 binary64))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (sin.f64 phi1) (*.f64 (cos.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 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.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 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.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 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 phi1) (*.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)))))
(* (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)))))
(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)))))

eval233.0ms (1%)

Compiler

Compiled 39283 to 2633 computations (93.3% saved)

prune182.0ms (0.8%)

Pruning

25 alts after pruning (25 fresh and 0 done)

PrunedKeptTotal
New1030251055
Fresh000
Picked202
Done000
Total1032251057
Accuracy
99.9%
Counts
1057 → 25
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
99.7%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) (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%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.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 (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))))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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)))))))))
▶91.0%
(+.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)))))
78.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
85.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))))
93.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
84.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta)))))))
80.9%
(+.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))))))
78.9%
(+.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)))))
79.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))))
87.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.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)))))))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
87.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
99.7%
(*.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)))
▶69.2%
lambda1
Compiler

Compiled 1614 to 1034 computations (35.9% saved)

simplify182.0ms (0.8%)

Algorithm
1×egg-herbie
Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta)))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))))
✓cost-diff6336
(fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
✓cost-diff0
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 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-diff0
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(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))))
✓cost-diff0
(+.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)))))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.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)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.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))))))
✓cost-diff6528
(-.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))))))
Rules
2036×fmsub-define
1794×fmm-def
1620×fma-lowering-fma.f32
1620×fma-lowering-fma.f64
1576×*-lowering-*.f32
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
047542
1120527
2324517
31052513
43348513
57380513
08108513
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(cos delta)
(* (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
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (pow (sin phi1) 2))
(cos delta)
(pow (sin phi1) 2)
(sin phi1)
2
(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)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))
(- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta))))
(- 0 (* (cos delta) (sin phi1)))
0
(* (cos delta) (sin phi1))
(cos delta)
(sin phi1)
(* (sin delta) (* (cos phi1) (cos theta)))
(* (cos phi1) (cos theta))
(cos theta)
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(-.f64 (*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(cos delta)
(cos.f64 delta)
(* (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)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(*.f64 (*.f64 (cos.f64 phi1) (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)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (* (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) (pow (sin phi1) 2))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(cos delta)
(cos.f64 delta)
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin phi1)
(sin.f64 phi1)
2
#s(literal 2 binary64)
(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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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 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))
(cos theta)
(cos.f64 theta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin 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 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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
(+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))
(-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta))))
(-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(- 0 (* (cos delta) (sin phi1)))
(*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
0
#s(literal 0 binary64)
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(cos delta)
(cos.f64 delta)
(sin phi1)
(sin.f64 phi1)
(* (sin delta) (* (cos phi1) (cos theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(* (cos phi1) (cos theta))
(*.f64 (cos.f64 phi1) (cos.f64 theta))
(cos theta)
(cos.f64 theta)

localize679.0ms (3%)

Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓accuracy99.8%
(*.f64 (cos.f64 delta) (sin.f64 phi1))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
✓accuracy99.2%
(fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1) (cos.f64 delta))
✓accuracy99.8%
(*.f64 (cos.f64 delta) (sin.f64 phi1))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
✓accuracy99.3%
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
✓accuracy99.8%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
✓accuracy99.4%
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.2%
(-.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))))))
✓accuracy75.1%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
Results
266.0ms118×1valid
231.0ms138×0valid
Compiler

Compiled 559 to 48 computations (91.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 226.0ms
ival-mult: 55.0ms (24.4% of total)
backward-pass: 53.0ms (23.5% of total)
ival-sin: 44.0ms (19.5% of total)
ival-cos: 30.0ms (13.3% of total)
ival-atan2: 12.0ms (5.3% of total)
ival-sub: 12.0ms (5.3% of total)
ival-add: 9.0ms (4% of total)
compiled-spec: 6.0ms (2.7% of total)
ival-pow: 4.0ms (1.8% of total)
const: 1.0ms (0.4% of total)

series51.0ms (0.2%)

Counts
23 → 720
Calls
Call 1
Inputs
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (* (sin theta) (sin delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (sin delta) (cos theta)))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (cos phi1)>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta)))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))>
#<alt (* (* (cos phi1) (cos theta)) (sin phi1))>
#<alt (- (cos delta) (pow (sin phi1) 2))>
#<alt (pow (sin phi1) 2)>
#<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 delta) (sin phi1))>
#<alt (* (sin delta) (* (cos phi1) (cos theta)))>
Outputs
#<alt (+ 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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 (+ 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 (* 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) (pow (sin phi1) 2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin 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 (* (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 (* (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 (* (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 1>
#<alt (+ 1 (* -1/2 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos 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 (+ 1 (* -1 (pow (sin phi1) 2)))>
#<alt (+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))>
#<alt (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))>
#<alt (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (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))) (* -1 (* (cos theta) (sin delta))))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))>
#<alt (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))>
#<alt (+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (cos delta) (+ (* -1 (* (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/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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 (* 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 (* 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 (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/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 (cos delta)>
#<alt (+ (cos delta) (* -1 (pow phi1 2)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<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)>
#<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 (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<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 (sin phi1)>
#<alt (+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))>
#<alt (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))>
#<alt (+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))>
#<alt (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))>
#<alt (* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<alt (* (cos delta) (sin phi1))>
#<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)))>
Calls

180 calls:

TimeVariablePointExpression
5.0ms
phi1
@inf
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
3.0ms
delta
@-inf
(+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))
2.0ms
theta
@-inf
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
1.0ms
delta
@inf
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
1.0ms
phi1
@inf
(+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))

rewrite481.0ms (2.1%)

Algorithm
1×batch-egg-rewrite
Rules
3236×/-lowering-/.f32
3236×/-lowering-/.f64
2498×*-lowering-*.f32
2498×*-lowering-*.f64
1990×--lowering--.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
047366
1149304
2516303
32678303
08673303
Stop Event
1×iter limit
1×node limit
Counts
23 → 884
Calls
Call 1
Inputs
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(* (sin theta) (sin delta))
(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)
(* (sin delta) (sin theta))
(+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- (- 0 (* (cos delta) (sin phi1))) (* (sin delta) (* (cos phi1) (cos theta)))) (sin phi1)) (cos delta)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(- (cos delta) (pow (sin phi1) 2))
(pow (sin phi1) 2)
(- (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))
(* (sin delta) (* (cos phi1) (cos theta)))
Outputs
(+.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 (*.f64 (cos.f64 delta) (+.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 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta)))
(+.f64 (+.f64 (cos.f64 delta) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))))
(-.f64 (cos.f64 delta) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
(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)))) (cos.f64 delta))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (cos.f64 delta))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (cos.f64 delta))
(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) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta)))
(*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 delta theta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.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 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) (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))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.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) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(+.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 delta theta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 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 delta theta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 delta theta) (-.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 delta theta) (-.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(/.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 delta theta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.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 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) (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))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.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) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(cos.f64 phi1)
(+.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 delta theta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 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 delta theta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 delta theta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #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 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 delta theta) (-.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 delta theta) (-.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(+.f64 (cos.f64 delta) (-.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 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(+.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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(+.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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.f64 (-.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 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (cos.f64 delta))
(+.f64 (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (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))))))
(+.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (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 (cos.f64 delta) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (cos.f64 delta)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta))))
(-.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 0 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(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 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (cos.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(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 (sin.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.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) phi1)))) #s(literal 1 binary64)) (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 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.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) phi1)))) #s(literal 1 binary64)) (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))
(fma.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(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 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(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) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (cos.f64 delta))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 (cos.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) #s(literal -1 binary64) (cos.f64 delta))
(fma.f64 (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (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) phi1)))) #s(literal 1 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (*.f64 #s(literal -1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) (sin.f64 delta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (cos.f64 theta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1 binary64)) (sin.f64 phi1) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 phi1))))
(-.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 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal -1 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 4 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(*.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1))
(*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(/.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))
(*.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 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (/.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(+.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 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(-.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(-.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal -1 binary64) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 phi1))))
(-.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 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal -1 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 4 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(+.f64 (cos.f64 delta) (-.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 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(+.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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(+.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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.f64 (-.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 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (cos.f64 delta))
(+.f64 (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (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))))))
(+.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (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 (cos.f64 delta) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (cos.f64 delta)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta))))
(-.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 0 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(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 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (cos.f64 theta) (*.f64 (*.f64 (sin.f64 delta) (cos.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(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 (sin.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.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) phi1)))) #s(literal 1 binary64)) (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 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.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) phi1)))) #s(literal 1 binary64)) (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))
(fma.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(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 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(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 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(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) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal -1 binary64) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (-.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (cos.f64 delta))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 (cos.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) #s(literal -1 binary64) (cos.f64 delta))
(fma.f64 (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (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) phi1)))) #s(literal 1 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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (*.f64 #s(literal -1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal -1 binary64)) (sin.f64 delta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (cos.f64 theta) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (cos.f64 theta)) (cos.f64 phi1) (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -1 binary64)) (sin.f64 phi1) (cos.f64 delta))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (sin.f64 phi1)))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal -1 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) #s(literal 0 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (cos.f64 delta) #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (sin.f64 phi1)))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 delta) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 delta) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(fma.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 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal -1 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (sin.f64 phi1)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (neg.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (sin.f64 phi1)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.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 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (sin.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal -1 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (neg.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.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 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)) (cos.f64 theta) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (cos.f64 theta) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) (sin.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (sin.f64 phi1)))) #s(literal 4 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 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal -1 binary64))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (cos.f64 delta))
(*.f64 (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1))) #s(literal 1/2 binary64))
(/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (*.f64 (cos.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (cos.f64 theta)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1 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 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))

simplify485.0ms (2.1%)

Algorithm
1×egg-herbie
Rules
7368×*-lowering-*.f32
7368×*-lowering-*.f64
3594×+-lowering-+.f64
3594×+-lowering-+.f32
1808×associate-*r*
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
059813772
1222512938
2777612901
0806012901
Stop Event
1×iter limit
1×node limit
Counts
720 → 720
Calls
Call 1
Inputs
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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)))))))
(+ 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)))))))
(* 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) (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin 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 (* (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)))))))
(* (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 (* (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)))
1
(+ 1 (* -1/2 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos 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))
(+ 1 (* -1 (pow (sin phi1) 2)))
(+ 1 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* -1 (pow (sin phi1) 2))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (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))) (* -1 (* (cos theta) (sin delta))))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
(+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))
(+ (cos delta) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin 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 (* (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/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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))))
(* 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))))
(* 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)))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))
(- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (pow (sin phi1) 2))
(- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/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))
(cos delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(- (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)
(* (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))))
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(- 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)))))
(sin phi1)
(+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))
(+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))
(+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* phi1 (cos delta))
(* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))
(* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))
(* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* (cos delta) (sin phi1))
(* 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)))
Outputs
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- 1/24 (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 delta delta) (-.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (+.f64 #s(literal -1/48 binary64) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/24 (* -1 (* (pow delta 2) (+ 1/720 (* -1/720 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/24 (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 delta delta) (+.f64 (+.f64 (*.f64 delta (*.f64 delta (+.f64 (-.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/720 binary64) (+.f64 #s(literal -1/1440 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))) (+.f64 #s(literal -1/48 binary64) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta))))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta))))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -2/45 binary64))))) (cos.f64 delta))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(+ 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))) 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(atan2 (* (cos 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (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 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 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 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) (*.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) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* 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 (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)))))
(* (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 (* (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)))))))
(* (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 phi1 (*.f64 phi1 #s(literal -1/2 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 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) (*.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 (* (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)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64))))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1)))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1))))))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.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 (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)))))
(* (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 (* -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))))) (* -1 (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 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (* 1/2 (pow (sin phi1) 2)) 1/2))))))
(+.f64 (*.f64 delta (-.f64 (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (- (+ (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (pow (sin phi1) 2))) 1/2))))))
(+.f64 (*.f64 delta (-.f64 (*.f64 delta (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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))) (* -1 (* (cos theta) (sin delta))))))
(+.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 phi1)))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (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))) (neg.f64 phi1)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))
(+.f64 (cos.f64 delta) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 #s(literal 1/2 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) (+ (* -1 (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (-.f64 (cos.f64 delta) (*.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 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))))
(+ (cos delta) (+ (* -1 (* (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/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))))))))
(+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (*.f64 theta (*.f64 theta (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.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)))))))))
(+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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) (* -1 (* (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 phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(*.f64 phi1 (*.f64 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 phi1 (*.f64 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 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 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(* 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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* 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 phi1 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 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)))))))))))
(*.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 (*.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 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.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)))
(+ (* -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 (*.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))))))
(+ (* (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 theta theta) (*.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))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* 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 (cos.f64 theta) (*.f64 #s(literal -2/3 binary64) (*.f64 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 (*.f64 phi1 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 (*.f64 phi1 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 (*.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 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)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/720 binary64))))))) (-.f64 #s(literal 1 binary64) (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)))
(- (cos delta) (pow (sin phi1) 2))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(-.f64 (cos.f64 delta) (*.f64 phi1 phi1))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 (cos.f64 delta) (*.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))))))))
(- (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)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(*.f64 phi1 (*.f64 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 phi1 (*.f64 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 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)))))))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(- 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 delta (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.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 #s(literal 1/6 binary64) (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (-.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 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 phi1)))
(+ (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))) (neg.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 #s(literal 1/2 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 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 (cos.f64 delta) (*.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 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #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))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (*.f64 theta (*.f64 theta (+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.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)))))))))
(- (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 phi1 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))))))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(*.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 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta)))
(+ (* 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 delta (*.f64 #s(literal -1/2 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 #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 (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 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.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 theta theta) (*.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)))))))
(* (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)
(sin.f64 phi1)
(+ (sin phi1) (* -1/2 (* (pow delta 2) (sin phi1))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/2 binary64))) (sin.f64 phi1))
(+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow delta 2) (sin phi1))))))
(+.f64 (sin.f64 phi1) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64))))))
(+ (sin phi1) (* (pow delta 2) (+ (* -1/2 (sin phi1)) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (sin phi1))) (* 1/24 (sin phi1)))))))
(+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/2 binary64))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/720 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta))))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (+ (cos delta) (* -1/6 (* (pow phi1 2) (cos delta)))))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)))
(* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* 1/120 (* (pow phi1 2) (cos delta)))))))
(*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 phi1 phi1)))))))
(* phi1 (+ (cos delta) (* (pow phi1 2) (+ (* -1/6 (cos delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos delta))) (* 1/120 (cos delta))))))))
(*.f64 phi1 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1)) #s(literal 1/120 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* (cos delta) (sin phi1))
(*.f64 (cos.f64 delta) (sin.f64 phi1))
(* delta (* (cos phi1) (cos theta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta))
(* 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 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 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 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)))) (*.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 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64))))))
(* (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)))

eval452.0ms (2%)

Compiler

Compiled 70119 to 4494 computations (93.6% saved)

prune360.0ms (1.6%)

Pruning

35 alts after pruning (34 fresh and 1 done)

PrunedKeptTotal
New1917241941
Fresh101020
Picked415
Done000
Total1931351966
Accuracy
100.0%
Counts
1966 → 35
Alt Table
Click to see full alt table
StatusAccuracyProgram
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (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)))
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))))
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
13.2%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
▶21.8%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
99.7%
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) lambda1)
91.0%
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) lambda1)
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
91.0%
(+.f64 lambda1 (atan2.f64 (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
▶91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
80.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (+.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))))))
▶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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
84.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta)))))))
88.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 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))))
▶78.9%
(+.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)))))
79.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))))
87.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
87.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
50.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
91.0%
(*.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
99.7%
(*.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)))
✓69.2%
lambda1
Compiler

Compiled 2100 to 1445 computations (31.2% saved)

simplify235.0ms (1%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff0
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓cost-diff128
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
✓cost-diff6464
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))
✓cost-diff0
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(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))))
✓cost-diff0
(+.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)))))
✓cost-diff0
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓cost-diff6528
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
✓cost-diff6528
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
Rules
2078×sum3-define
1936×+-lowering-+.f64
1936×+-lowering-+.f32
1656×fma-define
1594×--lowering--.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
049604
1113571
2279517
31043517
44853517
57712517
08198517
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
(- (cos delta) (* (cos delta) 1/2))
(cos delta)
(* (cos delta) 1/2)
1/2
(* (cos (* 2 phi1)) (* -1/2 (cos delta)))
(cos (* 2 phi1))
(* 2 phi1)
2
(* -1/2 (cos delta))
-1/2
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(cos delta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- 1 (pow (sin phi1) 2))
1
(pow (sin phi1) 2)
(sin phi1)
2
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))
(- 0 (sin phi1))
0
(sin phi1)
(cos delta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta))
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+ -1/2 (* 1/2 (cos (* 2 phi1))))
-1/2
(* 1/2 (cos (* 2 phi1)))
1/2
(cos (* 2 phi1))
(* 2 phi1)
2
1
(cos delta)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
(*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (cos delta) (* (cos delta) 1/2))
(*.f64 (cos.f64 delta) #s(literal 1/2 binary64))
(cos delta)
(cos.f64 delta)
(* (cos delta) 1/2)
(*.f64 (cos.f64 delta) #s(literal 1/2 binary64))
1/2
#s(literal 1/2 binary64)
(* (cos (* 2 phi1)) (* -1/2 (cos delta)))
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal -1/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/2 (cos delta))
(*.f64 (cos.f64 delta) #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(*.f64 (*.f64 (cos.f64 phi1) (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)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 delta))
(* (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)
(cos.f64 delta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (* (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
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin phi1)
(sin.f64 phi1)
2
#s(literal 2 binary64)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (* (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
(+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 0 (sin phi1))
(-.f64 #s(literal 0 binary64) (sin.f64 phi1))
0
#s(literal 0 binary64)
(sin phi1)
(sin.f64 phi1)
(cos delta)
(cos.f64 delta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (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
(- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(-.f64 (*.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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta))
(*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 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
#s(literal -1/2 binary64)
(* 1/2 (cos (* 2 phi1)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
1/2
#s(literal 1/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
#s(literal 1 binary64)
(cos delta)
(cos.f64 delta)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(*.f64 (*.f64 (cos.f64 phi1) (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)

localize727.0ms (3.2%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.3%
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64))
✓accuracy75.1%
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
✓accuracy99.8%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta)))
✓accuracy99.8%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.4%
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))
✓accuracy99.7%
(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))))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
✓accuracy99.3%
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓accuracy100.0%
(cos.f64 delta)
✓accuracy99.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
✓accuracy99.8%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.4%
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
Results
352.0ms118×1valid
229.0ms138×0valid
Compiler

Compiled 596 to 50 computations (91.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 235.0ms
ival-mult: 53.0ms (22.6% of total)
backward-pass: 42.0ms (17.9% of total)
ival-sub: 38.0ms (16.2% of total)
ival-cos: 30.0ms (12.8% of total)
ival-sin: 25.0ms (10.6% of total)
ival-add: 19.0ms (8.1% of total)
ival-atan2: 15.0ms (6.4% of total)
compiled-spec: 6.0ms (2.6% of total)
ival-pow: 4.0ms (1.7% of total)
const: 1.0ms (0.4% of total)

series36.0ms (0.2%)

Counts
24 → 684
Calls
Call 1
Inputs
#<alt (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))>
#<alt (- (cos delta) (* (cos delta) 1/2))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (cos phi1)>
#<alt (* (sin delta) (sin theta))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta)))>
#<alt (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))>
#<alt (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))>
#<alt (* (* (cos phi1) (cos theta)) (sin phi1))>
#<alt (cos delta)>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (pow (sin phi1) 2)>
#<alt (+ -1/2 (* 1/2 (cos (* 2 phi1))))>
Outputs
#<alt (- 1/2 (* -1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/48 (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/48 (* -1 (* (pow delta 2) (+ 1/1440 (* 1/1440 (cos (* 2 phi1))))))) (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))>
#<alt (- (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))>
#<alt (- (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))>
#<alt (- (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))>
#<alt 1/2>
#<alt (+ 1/2 (* -1/4 (pow delta 2)))>
#<alt (+ 1/2 (* (pow delta 2) (- (* 1/48 (pow delta 2)) 1/4)))>
#<alt (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (+ 1/48 (* -1/1440 (pow delta 2)))) 1/4)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (- (cos delta) (* 1/2 (cos delta)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<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 (* (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 1>
#<alt (+ 1 (* -1/2 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos 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 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<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 (cos delta)>
#<alt (+ (cos delta) (* -1 (pow phi1 2)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ 1 (* -1 (pow (sin phi1) 2)))>
#<alt (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* -1/2 (pow delta 2))))>
#<alt (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))>
#<alt (+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (+ (cos delta) (* -1 (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))>
#<alt 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<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 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (* 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 1>
#<alt (+ 1 (* -1/2 (pow delta 2)))>
#<alt (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))>
#<alt (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<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 (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (* -1 (pow phi1 2))>
#<alt (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
Calls

171 calls:

TimeVariablePointExpression
8.0ms
lambda1
@inf
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))))
1.0ms
delta
@inf
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
1.0ms
delta
@-inf
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
1.0ms
phi1
@inf
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
1.0ms
delta
@0
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))

rewrite352.0ms (1.5%)

Algorithm
1×batch-egg-rewrite
Rules
3546×/-lowering-/.f32
3546×/-lowering-/.f64
2406×*-lowering-*.f32
2406×*-lowering-*.f64
2116×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
049346
1143308
2468255
33090255
08132255
Stop Event
1×iter limit
1×node limit
Counts
24 → 539
Calls
Call 1
Inputs
(- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta))))
(- (cos delta) (* (cos delta) 1/2))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (- (cos delta) (* (cos delta) 1/2)) (* (cos (* 2 phi1)) (* -1/2 (cos delta)))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
(* (sin delta) (sin theta))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (- 0 (sin phi1)) (sin phi1)) (cos delta)))
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(cos delta)
(- 1 (pow (sin phi1) 2))
(pow (sin phi1) 2)
(+ -1/2 (* 1/2 (cos (* 2 phi1))))
Outputs
(+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(+.f64 #s(literal 0 binary64) (neg.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))))
(+.f64 #s(literal 0 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (cos.f64 delta))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(+.f64 (+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) #s(literal 0 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(-.f64 (cos.f64 delta) (/.f64 (cos.f64 delta) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))))
(-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(-.f64 (+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) #s(literal 0 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 delta) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 (cos.f64 delta) #s(literal -1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) #s(literal 1 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (cos.f64 delta))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (cos.f64 delta) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -1/2 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 (cos.f64 delta) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) (cos.f64 delta))))
(/.f64 (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) (cos.f64 delta))) #s(literal -2 binary64))
(*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (cos.f64 delta))
(*.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1))
(*.f64 (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) (cos.f64 delta)) #s(literal 1/2 binary64))
(+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (cos.f64 delta))
(+.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(+.f64 #s(literal 0 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (cos.f64 delta))))
(+.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 delta) #s(literal -1/2 binary64) (cos.f64 delta))
(fma.f64 (cos.f64 delta) #s(literal 1 binary64) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (cos.f64 delta))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (cos.f64 delta))
(fma.f64 #s(literal 1 binary64) (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) #s(literal 1/2 binary64) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (cos.f64 delta))
(neg.f64 (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(*.f64 (cos.f64 delta) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta))))
(*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta))
(/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (*.f64 (cos.f64 phi1) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (*.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -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) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (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 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.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) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1)) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(cos.f64 phi1)
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #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) (neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.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 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 (-.f64 theta delta) theta) delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.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 delta theta)))) #s(literal 1/4 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (*.f64 (cos.f64 phi1) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) (*.f64 #s(literal 1 binary64) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -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) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (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 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.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) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1)) #s(literal -1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 1/2 binary64))
(*.f64 (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #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) (neg.f64 (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.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 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64)))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (+.f64 (-.f64 theta delta) theta) delta) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (/.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 delta theta)))) #s(literal 1/4 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 1/2 binary64))
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 0 binary64) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(+.f64 #s(literal 0 binary64) (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) (cos.f64 delta))
(+.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(-.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(fma.f64 (cos.f64 delta) #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 #s(literal 1 binary64) (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 0 binary64) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal 1 binary64)))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -1 binary64))
(pow.f64 (exp.f64 (log.f64 (cos.f64 phi1))) #s(literal 2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -1/2 binary64))
(*.f64 (exp.f64 (log.f64 (cos.f64 phi1))) (exp.f64 (log.f64 (cos.f64 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (*.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 phi1) (cos.f64 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal -4 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal -2 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (sin.f64 phi1) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (sin.f64 phi1) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 #s(literal 1 binary64) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (/.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 phi1) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal -1/2 binary64))
(*.f64 (/.f64 (sin.f64 phi1) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(+.f64 (cos.f64 delta) (*.f64 #s(literal 0 binary64) (sin.f64 delta)))
(cos.f64 delta)
(cos.f64 (-.f64 #s(literal 0 binary64) delta))
(*.f64 (cos.f64 delta) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 delta))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 #s(literal 0 binary64) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal 1 binary64)))
(/.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)))) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -1 binary64))
(pow.f64 (exp.f64 (log.f64 (cos.f64 phi1))) #s(literal 2 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1 binary64))) #s(literal -1/2 binary64))
(*.f64 (exp.f64 (log.f64 (cos.f64 phi1))) (exp.f64 (log.f64 (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal -1/2 binary64))
(+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 0 binary64))
(+.f64 (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(-.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 (sin.f64 phi1) #s(literal 0 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(fma.f64 #s(literal 0 binary64) (sin.f64 phi1) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
(neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) #s(literal -2 binary64))
(*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1/2 binary64))

simplify468.0ms (2%)

Algorithm
1×egg-herbie
Rules
5142×*-lowering-*.f32
5142×*-lowering-*.f64
2380×+-lowering-+.f64
2380×+-lowering-+.f32
1752×sum3-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
044312992
1155112001
2607810873
0818710873
Stop Event
1×iter limit
1×node limit
Counts
684 → 684
Calls
Call 1
Inputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/48 (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/48 (* -1 (* (pow delta 2) (+ 1/1440 (* 1/1440 (cos (* 2 phi1))))))) (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(- (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(- (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(- (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos delta))))
1/2
(+ 1/2 (* -1/4 (pow delta 2)))
(+ 1/2 (* (pow delta 2) (- (* 1/48 (pow delta 2)) 1/4)))
(+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (+ 1/48 (* -1/1440 (pow delta 2)))) 1/4)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(- (cos delta) (* 1/2 (cos delta)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(* (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 (* (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)))
1
(+ 1 (* -1/2 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos 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))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(* 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))
(cos delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ 1 (* -1 (pow (sin phi1) 2)))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* -1/2 (pow delta 2))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+ 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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))))
(* 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)))
1
(+ 1 (* -1/2 (pow delta 2)))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(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))))
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(* -1 (pow phi1 2))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(- (* 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))) 1/2)
Outputs
(- 1/2 (* -1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (+ 1/2 (* -1 (* (pow delta 2) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (-.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/4 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- 1/48 (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/48 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/48 binary64)))) (-.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/4 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(- (+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (- (+ 1/48 (* -1 (* (pow delta 2) (+ 1/1440 (* 1/1440 (cos (* 2 phi1))))))) (* -1/48 (cos (* 2 phi1))))) (+ 1/4 (* 1/4 (cos (* 2 phi1))))))) (* -1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 (*.f64 delta (*.f64 delta (+.f64 (-.f64 #s(literal 1/48 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/1440 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/1440 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/48 binary64))))) (-.f64 #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 1/4 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(cos.f64 delta)
(- (+ (cos delta) (* -1 (* (pow phi1 2) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta))
(- (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (* (pow phi1 2) (cos delta))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 delta) phi1) phi1) #s(literal 1/3 binary64)) (cos.f64 delta))))
(- (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (- (* -2/45 (* (pow phi1 2) (cos delta))) (* -1/3 (cos delta)))) (cos delta)))) (+ (* -1/2 (cos delta)) (* 1/2 (cos delta))))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -2/45 binary64))))) (cos.f64 delta))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
(- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (* 1/2 (cos 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)))))
1/2
#s(literal 1/2 binary64)
(+ 1/2 (* -1/4 (pow delta 2)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/4 binary64)))
(+ 1/2 (* (pow delta 2) (- (* 1/48 (pow delta 2)) 1/4)))
(+.f64 #s(literal 1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/48 binary64))))))
(+ 1/2 (* (pow delta 2) (- (* (pow delta 2) (+ 1/48 (* -1/1440 (pow delta 2)))) 1/4)))
(+.f64 #s(literal 1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/48 binary64) (*.f64 delta (*.f64 delta #s(literal -1/1440 binary64)))))))))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(- (cos delta) (* 1/2 (cos delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* -1/2 (* (cos delta) (cos (* 2 phi1)))) (+ (* 1/2 (cos delta)) (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (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 (+.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 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.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))))
(* (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 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))))
(* (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 (* (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 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64)))))))
(* (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)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64))) phi1) phi1))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)))))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.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 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)) #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 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #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 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin 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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin 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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin 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 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 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 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64)))))))
(* (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 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))))
(* (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 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.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))))
(* (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 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 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #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 (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)) #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))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(-.f64 (cos.f64 delta) (*.f64 phi1 phi1))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 (cos.f64 delta) (*.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))))))))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ 1 (* -1 (pow (sin phi1) 2)))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* -1/2 (pow delta 2))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64))))))
(+ 1 (+ (* -1 (pow (sin phi1) 2)) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/720 binary64)))))))))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(+ (cos delta) (* -1 (pow (sin phi1) 2)))
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))) 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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (pow (sin phi1) 2))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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))))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))))))
(* 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 (*.f64 delta delta) #s(literal -1/6 binary64)) #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 (*.f64 delta delta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* 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 phi1 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 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)))))))))))
(*.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 (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 phi1 (*.f64 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/144 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -29/5040 binary64))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (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 (*.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))))))
(+ (* (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 theta theta) (*.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))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))
(* 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 phi1 (*.f64 phi1 (*.f64 (cos.f64 theta) #s(literal -2/3 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))))))))))
(*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 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 phi1 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 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 (*.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 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)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow delta 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64))))))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/720 binary64)))))))))
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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))))))))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(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 (*.f64 phi1 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))))))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(* -1 (pow phi1 2))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(*.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) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/3 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/315 binary64))))))))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))

eval469.0ms (2%)

Compiler

Compiled 65573 to 4184 computations (93.6% saved)

prune305.0ms (1.3%)

Pruning

51 alts after pruning (49 fresh and 2 done)

PrunedKeptTotal
New1988372025
Fresh171229
Picked415
Done011
Total2009512060
Accuracy
100.0%
Counts
2060 → 51
Alt Table
Click to see full alt table
StatusAccuracyProgram
21.8%
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
21.8%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
▶18.1%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
33.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
17.2%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
✓21.8%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
10.3%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
14.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
9.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
12.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))) (cos.f64 delta))
13.9%
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
99.8%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
▶91.0%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
78.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
78.9%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.8%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
79.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
80.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (+.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))))))
▶99.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta)))))
84.5%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1))))))
90.2%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 theta)) (sin.f64 phi1))))))
93.7%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
▶80.1%
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
84.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta)))))))
88.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
69.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
79.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))))
87.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
75.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
69.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
76.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
▶76.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
84.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
74.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
50.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
43.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.8%
(*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
78.9%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
✓69.2%
lambda1
Compiler

Compiled 2800 to 2001 computations (28.5% saved)

simplify137.0ms (0.6%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff0
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓cost-diff128
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64))
✓cost-diff128
(*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64))
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
✓cost-diff0
(*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
✓cost-diff128
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓cost-diff0
(sin.f64 theta)
✓cost-diff0
(sin.f64 delta)
✓cost-diff0
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓cost-diff0
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓cost-diff6464
(-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
Rules
2440×sum3-define
1814×fnmadd-define
1788×sum5-define
1534×fma-define
1490×sum4-define
Iterations

Useful iterations: 5 (0.0ms)

IterNodesCost
047499
1100478
2230470
3557467
41788467
53580465
66184465
08056465
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(* (pow (cos phi1) 2) (cos delta))
(pow (cos phi1) 2)
2
(cos delta)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
(atan2 (* (sin delta) (sin theta)) (cos delta))
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(cos delta)
(+ lambda1 (atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
lambda1
(atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(* (* delta (sin theta)) (cos phi1))
(* delta (sin theta))
delta
(sin theta)
theta
(cos phi1)
phi1
(- 1 (pow (sin phi1) 2))
1
(pow (sin phi1) 2)
(sin phi1)
2
(+ (atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))) lambda1)
(atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2))))
(* (cos phi1) (* (sin theta) (sin delta)))
(cos phi1)
phi1
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))
(cos delta)
(+ -1/2 (/ (cos (* 2 phi1)) 2))
-1/2
(/ (cos (* 2 phi1)) 2)
(cos (* 2 phi1))
(* 2 phi1)
2
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1)
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+ -1/2 (* 1/2 (cos (* 2 phi1))))
-1/2
(* 1/2 (cos (* 2 phi1)))
1/2
(cos (* 2 phi1))
(* 2 phi1)
2
1
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.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
(- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (pow (cos phi1) 2) (cos delta))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
2
#s(literal 2 binary64)
(cos delta)
(cos.f64 delta)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (* (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)
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 delta))
(* (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)
(cos.f64 delta)
(+ lambda1 (atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 delta (cos.f64 phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
lambda1
(atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 delta (cos.f64 phi1))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (* delta (sin theta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 delta (cos.f64 phi1)))
(* delta (sin theta))
(*.f64 (sin.f64 theta) delta)
delta
(sin theta)
(sin.f64 theta)
theta
(cos phi1)
(cos.f64 phi1)
phi1
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
1
#s(literal 1 binary64)
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin phi1)
(sin.f64 phi1)
2
#s(literal 2 binary64)
(+ (atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.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 2 binary64))))))
(atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.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 2 binary64)))))
(* (cos phi1) (* (sin theta) (sin delta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos phi1)
(cos.f64 phi1)
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 delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(cos delta)
(cos.f64 delta)
(+ -1/2 (/ (cos (* 2 phi1)) 2))
(+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
-1/2
#s(literal -1/2 binary64)
(/ (cos (* 2 phi1)) 2)
(/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.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
(- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1)
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 2 binary64)))
-1/2
#s(literal -1/2 binary64)
(* 1/2 (cos (* 2 phi1)))
(/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))
1/2
#s(literal 1/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
#s(literal 1 binary64)
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (* (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)

localize778.0ms (3.4%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.3%
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64))
✓accuracy75.1%
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
✓accuracy99.8%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.4%
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))
✓accuracy75.1%
(+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))
✓accuracy99.8%
(*.f64 delta (sin.f64 theta))
✓accuracy99.8%
(*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1))
✓accuracy99.6%
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
✓accuracy99.3%
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓accuracy100.0%
(sin.f64 delta)
✓accuracy100.0%
(cos.f64 delta)
✓accuracy99.9%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.7%
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
Results
342.0ms119×1valid
274.0ms137×0valid
Compiler

Compiled 523 to 49 computations (90.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 262.0ms
ival-sin: 54.0ms (20.6% of total)
ival-cos: 51.0ms (19.5% of total)
backward-pass: 48.0ms (18.3% of total)
ival-add: 32.0ms (12.2% of total)
ival-mult: 30.0ms (11.4% of total)
ival-pow: 17.0ms (6.5% of total)
ival-atan2: 15.0ms (5.7% of total)
ival-sub: 11.0ms (4.2% of total)
ival-div: 3.0ms (1.1% of total)
const: 1.0ms (0.4% of total)

series37.0ms (0.2%)

Counts
30 → 792
Calls
Call 1
Inputs
#<alt (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (* (sin delta) (sin theta))>
#<alt (sin delta)>
#<alt (sin theta)>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (+ lambda1 (atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))>
#<alt (atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))>
#<alt (* (* delta (sin theta)) (cos phi1))>
#<alt (+ (atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2))))>
#<alt (* (cos phi1) (* (sin theta) (sin delta)))>
#<alt (cos phi1)>
#<alt (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1)>
#<alt (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))>
#<alt (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))>
#<alt (* (* (cos phi1) (cos theta)) (sin phi1))>
#<alt (pow (cos phi1) 2)>
#<alt (* (sin theta) (sin delta))>
#<alt (cos delta)>
#<alt (pow (sin phi1) 2)>
#<alt (* delta (sin theta))>
#<alt (+ -1/2 (/ (cos (* 2 phi1)) 2))>
#<alt (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))>
#<alt (+ -1/2 (* 1/2 (cos (* 2 phi1))))>
Outputs
#<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 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (pow (cos phi1) 2)>
#<alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (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 phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos 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) (pow (cos 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) (pow (cos 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) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (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 (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos delta))>
#<alt (atan2 (* (sin delta) (sin theta)) (cos 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 delta>
#<alt (* delta (+ 1 (* -1/6 (pow delta 2))))>
#<alt (* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))>
#<alt (* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<alt (sin delta)>
#<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 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<alt (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))>
#<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 (* 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 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))>
#<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 (* (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 1>
#<alt (+ 1 (* -1/2 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<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 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<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 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (* 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 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos 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 1>
#<alt (+ 1 (* -1/2 (pow delta 2)))>
#<alt (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))>
#<alt (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos 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 (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta theta)>
#<alt (* theta (+ delta (* -1/6 (* delta (pow theta 2)))))>
#<alt (* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* 1/120 (* delta (pow theta 2)))))))>
#<alt (* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* (pow theta 2) (+ (* -1/5040 (* delta (pow theta 2))) (* 1/120 delta)))))))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* -1 (pow phi1 2))>
#<alt (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (+ 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (+ 1/2 (+ (* -1/2 (pow delta 2)) (* 1/2 (cos (* 2 phi1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (pow phi1 2)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)>
#<alt (* -1 (pow phi1 2))>
#<alt (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))>
#<alt (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
#<alt (- (* 1/2 (cos (* 2 phi1))) 1/2)>
Calls

198 calls:

TimeVariablePointExpression
2.0ms
theta
@0
(atan2 (* (sin delta) (sin theta)) (cos delta))
2.0ms
phi1
@0
(* (* delta (sin theta)) (cos phi1))
1.0ms
phi1
@0
(+ -1/2 (* 1/2 (cos (* 2 phi1))))
1.0ms
delta
@0
(* (* delta (sin theta)) (cos phi1))
1.0ms
phi1
@-inf
(- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))

rewrite445.0ms (1.9%)

Algorithm
1×batch-egg-rewrite
Rules
3888×/-lowering-/.f32
3888×/-lowering-/.f64
2576×*-lowering-*.f32
2576×*-lowering-*.f64
2452×+-lowering-+.f64
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
047335
1146296
2483279
32866276
08753276
Stop Event
1×iter limit
1×node limit
Counts
30 → 596
Calls
Call 1
Inputs
(- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(* (sin delta) (sin theta))
(sin delta)
(sin theta)
(- 1 (pow (sin phi1) 2))
(+ lambda1 (atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2))))
(atan2 (* (* delta (sin theta)) (cos phi1)) (- 1 (pow (sin phi1) 2)))
(* (* delta (sin theta)) (cos phi1))
(+ (atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))) lambda1)
(atan2 (* (cos phi1) (* (sin theta) (sin delta))) (+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2))))
(* (cos phi1) (* (sin theta) (sin delta)))
(cos phi1)
(* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1)
(+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* 2 phi1)))) 1) 1) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(* (* (cos phi1) (cos theta)) (sin phi1))
(pow (cos phi1) 2)
(* (sin theta) (sin delta))
(cos delta)
(pow (sin phi1) 2)
(* delta (sin theta))
(+ -1/2 (/ (cos (* 2 phi1)) 2))
(+ (cos delta) (+ -1/2 (/ (cos (* 2 phi1)) 2)))
(+ -1/2 (* 1/2 (cos (* 2 phi1))))
Outputs
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (+.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (cos.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (+.f64 (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 0 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) #s(literal 1 binary64) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (cos.f64 theta))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (cos.f64 theta))) (sin.f64 delta) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (cos.f64 phi1)))) (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(fma.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (neg.f64 (-.f64 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) #s(literal 4 binary64))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (sin.f64 theta)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(sin.f64 delta)
(sin.f64 theta)
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64)))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (cos.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (*.f64 delta (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) delta) #s(literal 2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta)))
(*.f64 delta (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) delta))
(*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) delta)
(*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (sin.f64 theta)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(exp.f64 (log.f64 (cos.f64 phi1)))
(cos.f64 phi1)
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64)))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (cos.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi1))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64)))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (cos.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (*.f64 (sin.f64 delta) (sin.f64 phi1))) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 phi1 delta))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (cos.f64 theta) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (sin.f64 delta))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 delta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))
(/.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 phi1)) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.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 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (/.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (cos.f64 phi1))
(*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64)))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (cos.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (cos.f64 phi1))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (cos.f64 (+.f64 delta theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 delta theta))))) #s(literal 4 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1/2 binary64))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 #s(literal 0 binary64) (sin.f64 delta)))
(cos.f64 delta)
(cos.f64 (-.f64 #s(literal 0 binary64) delta))
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (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 phi1 #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))))
(exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (-.f64 (/.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))))) #s(literal 8 binary64))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -4 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 delta (sin.f64 theta))
(*.f64 (sin.f64 theta) delta)
(+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(-.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64)))
(-.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal -1/2 binary64))
(neg.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1/2 binary64))
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 delta) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(+.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 delta))
(+.f64 (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (+.f64 (cos.f64 delta) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(-.f64 (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64))))
(-.f64 (+.f64 (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)))
(+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(-.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(-.f64 #s(literal 0 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64)))
(-.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 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 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal -1/2 binary64))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal -1/2 binary64))
(neg.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1/2 binary64))

simplify496.0ms (2.2%)

Algorithm
1×egg-herbie
Rules
6216×*-lowering-*.f32
6216×*-lowering-*.f64
2244×+-lowering-+.f64
2244×+-lowering-+.f32
1706×fma-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
050612600
1182511593
2700611576
0811011576
Stop Event
1×iter limit
1×node limit
Counts
792 → 792
Calls
Call 1
Inputs
(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 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (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 phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (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)))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2 (* (sin delta) (sin theta)) (cos 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))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
(sin delta)
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)
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(* 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)))
(* 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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(* (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 (* (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)))
1
(+ 1 (* -1/2 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+ 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))))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+ 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 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))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (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))))
(* 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)))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos 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))
1
(+ 1 (* -1/2 (pow delta 2)))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos 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))))
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta theta)
(* theta (+ delta (* -1/6 (* delta (pow theta 2)))))
(* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* 1/120 (* delta (pow theta 2)))))))
(* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* (pow theta 2) (+ (* -1/5040 (* delta (pow theta 2))) (* 1/120 delta)))))))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* delta (sin theta))
(* -1 (pow phi1 2))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(- (* 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))) 1/2)
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1/2 (pow delta 2)) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(cos delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(* -1 (pow phi1 2))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(- (* 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))) 1/2)
Outputs
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) phi1)))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta #s(literal -1/2 binary64))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 delta #s(literal 1/6 binary64))))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 theta (*.f64 theta (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/24 binary64)) #s(literal 1/2 binary64))))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (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 phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 theta (*.f64 theta (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal 1/720 binary64)) #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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(*.f64 theta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(* 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 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.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 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 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 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 delta delta) (*.f64 delta (*.f64 delta (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.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))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (sin delta) (sin theta)) (cos delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 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 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (sin.f64 theta)) (*.f64 (*.f64 (sin.f64 theta) (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))) (*.f64 (*.f64 delta delta) (*.f64 delta 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))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(*.f64 theta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 #s(literal -1/6 binary64) (*.f64 theta theta))) (sin.f64 delta)) (*.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)))))
(* (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
(* delta (+ 1 (* -1/6 (pow delta 2))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))))
(* delta (+ 1 (* (pow delta 2) (- (* 1/120 (pow delta 2)) 1/6))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))))))))
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
theta
(* theta (+ 1 (* -1/6 (pow theta 2))))
(*.f64 theta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))))
(* theta (+ 1 (* (pow theta 2) (- (* 1/120 (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) #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 (*.f64 theta theta) (+.f64 #s(literal -1/6 binary64) (*.f64 theta (*.f64 theta (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 theta 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)
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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)))))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(atan2 (* delta (* (cos phi1) (sin theta))) (- 1 (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 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 (* theta (cos phi1)))
(*.f64 theta (*.f64 delta (cos.f64 phi1)))
(* theta (+ (* -1/6 (* delta (* (pow theta 2) (cos phi1)))) (* delta (cos phi1))))
(*.f64 theta (+.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 delta (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1))))))
(* theta (+ (* delta (cos phi1)) (* (pow theta 2) (+ (* -1/6 (* delta (cos phi1))) (* 1/120 (* delta (* (pow theta 2) (cos phi1))))))))
(*.f64 theta (+.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 delta (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 (*.f64 theta theta) (*.f64 #s(literal 1/120 binary64) (*.f64 delta (cos.f64 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)))))))))
(*.f64 theta (+.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 delta (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 theta theta)) (*.f64 delta #s(literal -1/5040 binary64))) (*.f64 #s(literal 1/120 binary64) (*.f64 delta (cos.f64 phi1)))))))))
(* 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 (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 phi1 (*.f64 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 phi1 (*.f64 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 delta (*.f64 phi1 phi1)) (*.f64 (sin.f64 theta) #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)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
(* (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 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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.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))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(*.f64 theta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))))
(* 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 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.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 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 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 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 delta delta) (*.f64 delta (*.f64 delta (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)))))))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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)))))))
(+ 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/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/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/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/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/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/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/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
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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)))))))
(+ 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/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/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/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/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/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/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/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (+ 1/2 (* 1/2 (cos (* 2 phi1)))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(*.f64 delta (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (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 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* 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 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.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 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #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 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 phi1 (*.f64 phi1 (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 #s(literal -1/144 binary64) (sin.f64 delta))) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -29/5040 binary64)))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64))))))
(+ (* (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 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)) #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 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* 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 phi1 (*.f64 phi1 (*.f64 (cos.f64 theta) #s(literal -2/3 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))))))))))
(*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 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 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (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 (*.f64 theta theta) #s(literal 1/24 binary64))))))
(+ (* (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 theta (*.f64 theta (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))))))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (cos phi1) (* (cos theta) (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.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 (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(*.f64 theta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 #s(literal -1/6 binary64) (*.f64 theta theta))) (sin.f64 delta)) (*.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)))))
(* (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 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 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 delta (*.f64 delta #s(literal 1/120 binary64))))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64)))) (sin.f64 theta)) (*.f64 (*.f64 (sin.f64 theta) (+.f64 #s(literal 1/120 binary64) (*.f64 delta (*.f64 delta #s(literal -1/5040 binary64))))) (*.f64 (*.f64 delta delta) (*.f64 delta 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))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow delta 2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta #s(literal 1/24 binary64)))))))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/24 binary64) (*.f64 delta (*.f64 delta #s(literal -1/720 binary64))))))))))
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.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 (*.f64 phi1 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 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/3 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/315 binary64)))))))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta theta)
(*.f64 delta theta)
(* theta (+ delta (* -1/6 (* delta (pow theta 2)))))
(*.f64 theta (+.f64 delta (*.f64 delta (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)))))
(* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* 1/120 (* delta (pow theta 2)))))))
(*.f64 theta (+.f64 delta (*.f64 (*.f64 theta theta) (+.f64 (*.f64 delta #s(literal -1/6 binary64)) (*.f64 delta (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64)))))))
(* theta (+ delta (* (pow theta 2) (+ (* -1/6 delta) (* (pow theta 2) (+ (* -1/5040 (* delta (pow theta 2))) (* 1/120 delta)))))))
(*.f64 theta (+.f64 delta (*.f64 theta (*.f64 theta (+.f64 (*.f64 delta #s(literal -1/6 binary64)) (*.f64 theta (*.f64 theta (+.f64 (*.f64 delta (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64))) (*.f64 delta #s(literal 1/120 binary64))))))))))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* -1 (pow phi1 2))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(*.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) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/3 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/315 binary64))))))))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 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/2 (pow delta 2)) (* 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 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta #s(literal 1/24 binary64))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/24 binary64) (*.f64 delta (*.f64 delta #s(literal -1/720 binary64))))))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (pow phi1 2)))
(-.f64 (cos.f64 delta) (*.f64 phi1 phi1))
(+ (cos delta) (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 (cos.f64 delta) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ (cos delta) (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 (cos.f64 delta) (*.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)))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (cos delta) (* 1/2 (cos (* 2 phi1)))) 1/2)
(+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(* -1 (pow phi1 2))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1))
(* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1))
(*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1))
(*.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) (- (* (pow phi1 2) (+ 1/3 (* (pow phi1 2) (- (* 1/315 (pow phi1 2)) 2/45)))) 1))
(*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/3 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/315 binary64))))))))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))

eval391.0ms (1.7%)

Compiler

Compiled 58211 to 3815 computations (93.4% saved)

prune374.0ms (1.6%)

Pruning

69 alts after pruning (65 fresh and 4 done)

PrunedKeptTotal
New1871331904
Fresh123244
Picked325
Done022
Total1886691955
Accuracy
100.0%
Counts
1955 → 69
Alt Table
Click to see full alt table
StatusAccuracyProgram
6.4%
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
21.8%
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
21.8%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
9.0%
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
9.3%
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
25.3%
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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)))))))
14.5%
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
13.1%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓18.1%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
9.0%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
11.5%
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
32.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
33.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
✓21.8%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
10.3%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
14.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
11.5%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
9.0%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
12.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))) (cos.f64 delta))
13.9%
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
8.9%
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
7.8%
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
76.8%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
91.0%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (+.f64 (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))) lambda1)
99.8%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
91.0%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (+.f64 (cos.f64 delta) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))) lambda1)
✓91.0%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
78.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
87.7%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)) lambda1)
76.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
80.1%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) lambda1)
76.6%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
49.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64)))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
78.9%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.9%
(+.f64 lambda1 (atan2.f64 (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
99.8%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (cos.f64 theta))) (sin.f64 delta) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))))
79.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta)))))
84.5%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1))))))
90.2%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 theta)) (sin.f64 phi1))))))
93.7%
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
80.1%
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
78.7%
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 theta)) (sin.f64 phi1))))))
80.0%
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
91.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
88.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
69.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
78.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
99.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
79.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))))
75.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
77.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) 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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
69.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
76.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
76.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
65.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
76.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))))
73.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
84.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
75.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
74.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
43.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
68.0%
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.8%
(*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
78.9%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
✓69.2%
lambda1
Compiler

Compiled 4815 to 1864 computations (61.3% saved)

regimes337.0ms (1.5%)

Counts
121 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)) lambda1)
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (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 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (+.f64 (cos.f64 delta) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (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)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (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) (*.f64 (sin.f64 delta) (*.f64 phi1 (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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (+.f64 (+.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 4 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64)))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) 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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) lambda1)
(+.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) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.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) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) delta)))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (+.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 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 theta)) (sin.f64 phi1))))))
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta (cos.f64 phi1))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))) (sin.f64 delta)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 delta (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (cos.f64 theta))) (sin.f64 delta) (/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta)) (sin.f64 phi1)))) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))) (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 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)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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))))))) lambda1)
(+.f64 lambda1 (atan2.f64 (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(*.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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.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 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.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))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 phi1) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (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)) (fma.f64 (-.f64 (-.f64 #s(literal 0 binary64) (*.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) (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)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(+.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))))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (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 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (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 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
Calls

7 calls:

52.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))))))))
52.0ms
phi1
48.0ms
lambda1
46.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)))))))))
36.0ms
phi2
Results
AccuracySegmentsBranch
99.9%1lambda1
99.9%1phi1
99.9%1phi2
99.9%1delta
99.9%1theta
99.9%1(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
99.9%1(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)

regimes203.0ms (0.9%)

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

5 calls:

63.0ms
phi1
39.0ms
phi2
30.0ms
lambda1
28.0ms
delta
25.0ms
theta
Results
AccuracySegmentsBranch
99.8%1lambda1
99.8%1phi1
99.8%1phi2
99.8%1delta
99.8%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes224.0ms (1%)

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

5 calls:

58.0ms
phi2
39.0ms
lambda1
36.0ms
theta
36.0ms
delta
31.0ms
phi1
Results
AccuracySegmentsBranch
93.7%1lambda1
93.7%1phi1
93.7%1phi2
93.7%1delta
93.7%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes173.0ms (0.8%)

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

5 calls:

37.0ms
lambda1
37.0ms
theta
30.0ms
delta
29.0ms
phi1
27.0ms
phi2
Results
AccuracySegmentsBranch
91.0%1lambda1
91.0%1phi2
91.0%1delta
91.0%1theta
91.0%1phi1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes153.0ms (0.7%)

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

5 calls:

47.0ms
phi2
32.0ms
theta
23.0ms
lambda1
20.0ms
delta
18.0ms
phi1
Results
AccuracySegmentsBranch
91.0%1lambda1
91.0%1phi1
91.0%1phi2
91.0%1delta
91.0%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes132.0ms (0.6%)

Counts
54 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)) lambda1)
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (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 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (+.f64 (cos.f64 delta) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -1/2 binary64))) lambda1)
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
Calls

5 calls:

33.0ms
phi1
31.0ms
delta
22.0ms
phi2
14.0ms
theta
14.0ms
lambda1
Results
AccuracySegmentsBranch
91.0%1lambda1
91.0%1phi1
91.0%1delta
91.0%1phi2
91.0%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes121.0ms (0.5%)

Counts
50 → 3
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)) lambda1)
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (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 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (exp.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.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 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (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)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
Calls

5 calls:

38.0ms
theta
31.0ms
phi2
18.0ms
lambda1
15.0ms
phi1
13.0ms
delta
Results
AccuracySegmentsBranch
87.7%1lambda1
87.7%1phi1
87.7%1phi2
90.9%3delta
87.7%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes22.0ms (0.1%)

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

1 calls:

11.0ms
delta
Results
AccuracySegmentsBranch
90.9%3delta
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes54.0ms (0.2%)

Counts
33 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (cos.f64 delta)) lambda1)
(atan2.f64 (/.f64 (sin.f64 theta) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
Calls

3 calls:

29.0ms
theta
10.0ms
phi2
10.0ms
delta
Results
AccuracySegmentsBranch
87.7%1phi2
87.7%1theta
87.7%1delta
Compiler

Compiled 18 to 15 computations (16.7% saved)

regimes56.0ms (0.2%)

Counts
25 → 3
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(atan2.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
Calls

5 calls:

16.0ms
phi2
15.0ms
lambda1
8.0ms
delta
8.0ms
theta
7.0ms
phi1
Results
AccuracySegmentsBranch
76.6%1lambda1
76.6%1phi1
81.4%3delta
76.6%1phi2
76.6%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes50.0ms (0.2%)

Counts
18 → 2
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.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) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta))))
Outputs
(+.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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
Calls

5 calls:

25.0ms
phi1
6.0ms
delta
6.0ms
theta
6.0ms
phi2
5.0ms
lambda1
Results
AccuracySegmentsBranch
75.9%1lambda1
75.9%1phi2
75.9%1theta
75.9%1phi1
77.8%2delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes9.0ms (0%)

Counts
16 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
Calls

1 calls:

5.0ms
delta
Results
AccuracySegmentsBranch
75.9%1delta
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes24.0ms (0.1%)

Counts
13 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/6 binary64) (*.f64 delta (*.f64 delta #s(literal 1/120 binary64)))))))) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 binary64))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
Calls

5 calls:

5.0ms
phi2
4.0ms
theta
4.0ms
delta
4.0ms
phi1
4.0ms
lambda1
Results
AccuracySegmentsBranch
73.7%1lambda1
73.7%1phi1
73.7%1phi2
73.7%1theta
73.7%1delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes12.0ms (0.1%)

Accuracy

Total -42.6b remaining (-216.2%)

Threshold costs -42.6b (-216.2%)

Counts
4 → 1
Calls
Call 1
Inputs
lambda1
(atan2.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 delta))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) #s(literal 1 binary64))
Outputs
lambda1
Calls

5 calls:

3.0ms
phi1
2.0ms
theta
2.0ms
lambda1
2.0ms
delta
2.0ms
phi2
Results
AccuracySegmentsBranch
69.2%1phi2
69.2%1lambda1
69.2%1phi1
69.2%1theta
69.2%1delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

bsearch121.0ms (0.5%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
45.0ms
3.2579517670705907e-52
1.371361769406043e-40
70.0ms
-45538751160921.58
-392969012.08783776
Results
104.0ms304×0valid
Compiler

Compiled 842 to 599 computations (28.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 77.0ms
ival-cos: 27.0ms (35.2% of total)
ival-sin: 25.0ms (32.6% of total)
ival-mult: 12.0ms (15.7% of total)
ival-asin: 5.0ms (6.5% of total)
ival-add: 3.0ms (3.9% of total)
ival-atan2: 3.0ms (3.9% of total)
ival-sub: 1.0ms (1.3% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

bsearch120.0ms (0.5%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
54.0ms
3.2579517670705907e-52
1.371361769406043e-40
60.0ms
-45538751160921.58
-392969012.08783776
Results
103.0ms304×0valid
Compiler

Compiled 899 to 656 computations (27% saved)

Precisions
Click to see histograms. Total time spent on operations: 86.0ms
ival-sin: 29.0ms (33.7% of total)
ival-mult: 18.0ms (20.9% of total)
ival-cos: 18.0ms (20.9% of total)
ival-add: 12.0ms (13.9% of total)
ival-asin: 5.0ms (5.8% of total)
ival-atan2: 3.0ms (3.5% of total)
ival-sub: 1.0ms (1.2% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

bsearch99.0ms (0.4%)

Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
48.0ms
2.9936515062433918e+109
7.207051522742074e+110
46.0ms
-286539017070751260.0
-7622398444231483.0
Results
80.0ms224×0valid
Compiler

Compiled 690 to 506 computations (26.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 68.0ms
ival-sin: 26.0ms (38.2% of total)
ival-cos: 20.0ms (29.4% of total)
ival-mult: 9.0ms (13.2% of total)
ival-add: 6.0ms (8.8% of total)
ival-asin: 5.0ms (7.3% of total)
ival-atan2: 2.0ms (2.9% of total)
ival-sub: 1.0ms (1.5% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

bsearch49.0ms (0.2%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
46.0ms
-286539017070751260.0
-7622398444231483.0
Results
42.0ms112×0valid
Compiler

Compiled 326 to 240 computations (26.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 28.0ms
ival-sin: 11.0ms (39.9% of total)
ival-cos: 8.0ms (29% of total)
ival-mult: 4.0ms (14.5% of total)
ival-asin: 2.0ms (7.2% of total)
ival-add: 1.0ms (3.6% of total)
ival-atan2: 1.0ms (3.6% of total)
ival-sub: 1.0ms (3.6% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

simplify31.0ms (0.1%)

Algorithm
1×egg-herbie
Rules
128×neg-mul-1_binary64
116×unsub-neg_binary64
104×distribute-lft-neg-in_binary64
96×+-commutative_binary64
82×*-commutative_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0107380
1181380
2236380
3285380
4326380
5364380
6479380
7614380
8641380
9650380
Stop Event
1×saturated
Calls
Call 1
Inputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
(+.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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))
(if (<=.f64 delta #s(literal -1760000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -820000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(if (<=.f64 delta #s(literal -142000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 30000000000000001541450961331713175933041337824187750660578830223615938314547980033503861230836200160588988416 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(if (<=.f64 delta #s(literal -132000000000000000 binary64)) (+.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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
lambda1
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (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) phi1)))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.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 (+.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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) 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 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) #s(literal 2 binary64)))))
(if (<=.f64 delta #s(literal -1760000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -1760000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -820000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -820000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 206886898016895/1532495540865888858358347027150309183618739122183602176 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (cos.f64 delta)))
(if (<=.f64 delta #s(literal -142000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 30000000000000001541450961331713175933041337824187750660578830223615938314547980033503861230836200160588988416 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(if (<=.f64 delta #s(literal -142000000000000000 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (if (<=.f64 delta #s(literal 30000000000000001541450961331713175933041337824187750660578830223615938314547980033503861230836200160588988416 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(if (<=.f64 delta #s(literal -132000000000000000 binary64)) (+.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 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) #s(literal 1 binary64)))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) delta)) #s(literal 1 binary64)))
lambda1

soundness4.9s (21.3%)

Rules
7368×*-lowering-*.f32
7368×*-lowering-*.f64
6216×*-lowering-*.f32
6216×*-lowering-*.f64
5666×*-lowering-*.f32
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
049346
1143308
2468255
33090255
08132255
059813772
1222512938
2777612901
0806012901
044312992
1155112001
2607810873
0818710873
047366
1149304
2516303
32678303
08673303
050612600
1182511593
2700611576
0811011576
047335
1146296
2483279
32866276
08753276
034245
1110245
2325239
31670239
08416239
030310348
111439963
246349683
080979683
02232
14032
26931
39531
411831
518731
632931
747831
872231
9114531
10136531
11159431
12184131
13222831
14284531
15333231
16367031
17424231
18424431
19425731
20427731
21428531
0428531
Stop Event
1×fuel
1×iter limit
1×saturated
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
1×iter limit
1×node limit
Compiler

Compiled 1166 to 683 computations (41.4% saved)

preprocess159.0ms (0.7%)

Remove

(abs phi2)

Compiler

Compiled 1340 to 530 computations (60.4% saved)

end0.0ms (0%)

Profiling

Loading profile data...