Destination given bearing on a great circle

Time bar (total: 22.4s)

analyze1.9s (8.7%)

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.1s
ival-sin: 430.0ms (38.3% of total)
ival-mult: 323.0ms (28.8% of total)
ival-cos: 228.0ms (20.3% of total)
ival-add: 52.0ms (4.6% of total)
ival-asin: 38.0ms (3.4% of total)
ival-atan2: 27.0ms (2.4% of total)
ival-sub: 19.0ms (1.7% of total)
const: 3.0ms (0.3% of total)
backward-pass: 2.0ms (0.2% of total)

sample3.5s (15.8%)

Results
3.0s8256×0valid
Precisions
Click to see histograms. Total time spent on operations: 2.5s
ival-sin: 1.0s (40.7% of total)
ival-cos: 677.0ms (27.1% of total)
ival-mult: 371.0ms (14.9% of total)
ival-asin: 172.0ms (6.9% of total)
ival-add: 120.0ms (4.8% of total)
ival-atan2: 87.0ms (3.5% of total)
ival-sub: 39.0ms (1.6% of total)
const: 9.0ms (0.4% of total)
backward-pass: 4.0ms (0.2% of total)
Bogosity

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

explain438.0ms (2%)

FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
110-5(-2.312323399553224e+41 -3.3365112759526244e+28 7.5475761691628335e-199 4.2843226257010365e+76 -2.4244060291724106e+289)(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
11(-1.2368719118511841e+268 5.3110030901008516e+228 5.787969995688436e-293 -1.3080318121134604e+306 -0.00012006296334091465)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 phi1)
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-(+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
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
278.0ms512×0valid
Compiler

Compiled 444 to 71 computations (84% saved)

Precisions
Click to see histograms. Total time spent on operations: 142.0ms
ival-sin: 47.0ms (33.1% of total)
ival-cos: 32.0ms (22.6% of total)
ival-mult: 27.0ms (19% of total)
ival-atan2: 17.0ms (12% of total)
ival-asin: 10.0ms (7% of total)
ival-add: 5.0ms (3.5% of total)
ival-sub: 2.0ms (1.4% of total)
const: 1.0ms (0.7% of total)
backward-pass: 0.0ms (0% of total)

eval1.0ms (0%)

Compiler

Compiled 38 to 23 computations (39.5% saved)

prune1.0ms (0%)

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

simplify144.0ms (0.6%)

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)

localize341.0ms (1.5%)

Localize:

Found 8 expressions of interest:

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

Compiled 400 to 36 computations (91% saved)

Precisions
Click to see histograms. Total time spent on operations: 169.0ms
ival-sin: 59.0ms (34.9% of total)
ival-mult: 39.0ms (23.1% of total)
ival-cos: 33.0ms (19.5% of total)
ival-sub: 14.0ms (8.3% of total)
ival-atan2: 11.0ms (6.5% of total)
ival-asin: 8.0ms (4.7% of total)
ival-add: 5.0ms (3% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

series53.0ms (0.2%)

Counts
14 → 492
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 (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 (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))>
#<alt (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))>
#<alt (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))>
Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (* 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 (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
Calls

123 calls:

TimeVariablePointExpression
16.0ms
delta
@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
phi1
@inf
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))
1.0ms
delta
@inf
(* (sin delta) (* (cos phi1) (sin theta)))
1.0ms
theta
@-inf
(* (sin delta) (* (cos phi1) (sin theta)))

rewrite389.0ms (1.7%)

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
034237
1110237
2325231
31670231
08415231
Stop Event
1×iter limit
1×node limit
Counts
14 → 433
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))))))))
(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)))))))
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
(asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))
(* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 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 theta (+.f64 delta (+.f64 delta theta))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 theta (-.f64 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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 #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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (cos.f64 delta)))
(+.f64 (*.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)))
(+.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (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 (/.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(-.f64 (/.f64 (cos.f64 (-.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(/.f64 (-.f64 (cos.f64 (-.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(*.f64 (-.f64 (*.f64 (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 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta))
(+.f64 #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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (cos.f64 delta)))
(+.f64 (*.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)))
(+.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (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 (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 (/.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(-.f64 (/.f64 (cos.f64 (-.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(/.f64 (-.f64 (cos.f64 (-.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 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(*.f64 (-.f64 (*.f64 (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))

simplify384.0ms (1.7%)

Algorithm
1×egg-herbie
Rules
4598×*-lowering-*.f32
4598×*-lowering-*.f64
3362×+-lowering-+.f64
3362×+-lowering-+.f32
1930×fma-lowering-fma.f32
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
02559890
19489565
237669289
370329283
081149283
Stop Event
1×iter limit
1×node limit
Counts
492 → 492
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))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(* 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 (cos.f64 phi1) (sin.f64 theta)) (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))))
(* 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 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 delta delta) (*.f64 (*.f64 (sin.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 (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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 phi1 phi1)) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (* (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 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.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 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta))))) (*.f64 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 (*.f64 delta 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 delta (*.f64 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 theta (*.f64 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.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 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta))))) (*.f64 (cos.f64 phi1) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (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 (cos.f64 phi1) (sin.f64 theta)) (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))))))
(* 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 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 delta delta) (*.f64 (*.f64 (sin.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 (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 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 phi1 phi1)) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(*.f64 theta (*.f64 (sin.f64 delta) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (*.f64 theta theta) (*.f64 #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 (sin.f64 delta) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)))) (*.f64 (*.f64 theta theta) (*.f64 theta theta))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (sin.f64 delta))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(*.f64 (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 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 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.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)))) (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) (neg.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (*.f64 (*.f64 theta theta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (-.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 theta (*.f64 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))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 phi1 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #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 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta))))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) delta)) (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (+.f64 #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 (+.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 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 theta theta))) (+.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 (*.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)))) (*.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)))))
(- 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) (neg.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))) #s(literal 2/3 binary64)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (*.f64 (*.f64 theta theta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+.f64 (-.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 theta (*.f64 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))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 phi1 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #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 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta))))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) delta)) (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (+.f64 #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 (+.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 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 theta theta))) (+.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 (*.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)))) (*.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)))))

eval201.0ms (0.9%)

Compiler

Compiled 36104 to 2109 computations (94.2% saved)

prune188.0ms (0.8%)

Pruning

21 alts after pruning (21 fresh and 0 done)

PrunedKeptTotal
New94921970
Fresh000
Picked202
Done000
Total95121972
Accuracy
100.0%
Counts
972 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
30.1%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
99.8%
(+.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.8%
(+.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 (*.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)) (fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (cos.f64 delta)))))
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) (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)))))
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) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (cos.f64 delta)))))
▶99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (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)))))))
▶90.7%
(+.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)))))
92.9%
(+.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)))))))
85.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))))
80.7%
(+.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)))))
▶82.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.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))))))
79.6%
(+.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)))))
88.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
▶99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.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))))))
78.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) delta)) (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
80.7%
(+.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)))))
88.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
99.8%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
▶71.5%
lambda1
Compiler

Compiled 1368 to 868 computations (36.5% saved)

simplify197.0ms (0.9%)

Algorithm
1×egg-herbie
Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓cost-diff6272
(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))))
✓cost-diff12800
(-.f64 (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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff12800
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓cost-diff12800
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (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 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))))
✓cost-diff128
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))
✓cost-diff128
(+.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))))
✓cost-diff128
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.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)))))
✓cost-diff128
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.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))))))
✓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-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))))))
✓cost-diff6528
(-.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
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.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 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.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))))))
Rules
1878×fma-lowering-fma.f32
1878×fma-lowering-fma.f64
1874×fmsub-define
1836×sum4-define
1780×*-lowering-*.f32
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
051666
1126650
2302621
31106614
44087614
08204614
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (sin delta) (* (cos phi1) (sin theta)))
(sin delta)
delta
(* (cos phi1) (sin theta))
(cos phi1)
phi1
(sin theta)
theta
(- (- (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
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))
(* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2)))))
(* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))
(- -1/2 (* -1/2 (pow (sin phi1) 2)))
-1/2
(* -1/2 (pow (sin phi1) 2))
(pow (sin phi1) 2)
(sin phi1)
2
(* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))
(+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))
(* (- 0 delta) (* (sin phi1) (cos theta)))
(- 0 delta)
0
(* (sin phi1) (cos theta))
(cos theta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(cos delta)
(+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin 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)
Outputs
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(* (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) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(cos delta)
(cos.f64 delta)
(* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 phi1)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(cos (* 2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* 2 phi1)
(*.f64 phi1 #s(literal 2 binary64))
2
#s(literal 2 binary64)
(* (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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.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 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (* (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) (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)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 delta delta)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 delta delta)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(* (* (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
(+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))
(+.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 delta delta)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2)))))
(*.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 delta delta))
(* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))
(*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(- -1/2 (* -1/2 (pow (sin phi1) 2)))
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
-1/2
#s(literal -1/2 binary64)
(* -1/2 (pow (sin phi1) 2))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin phi1)
(sin.f64 phi1)
2
#s(literal 2 binary64)
(* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))
(-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))
(* (- 0 delta) (* (sin phi1) (cos theta)))
(*.f64 (cos.f64 theta) (*.f64 delta (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(- 0 delta)
(-.f64 #s(literal 0 binary64) delta)
0
#s(literal 0 binary64)
(* (sin phi1) (cos theta))
(*.f64 (cos.f64 theta) (sin.f64 phi1))
(cos theta)
(cos.f64 theta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(* (* (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) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(cos delta)
(cos.f64 delta)
(+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin 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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 phi1)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(cos (* 2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* 2 phi1)
(*.f64 phi1 #s(literal 2 binary64))
2
#s(literal 2 binary64)
(* (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)

localize787.0ms (3.5%)

Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(*.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) (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)))))
✓accuracy75.0%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))) (cos.f64 phi1)))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
✓accuracy99.2%
(-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
✓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.5%
(-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
✓accuracy99.1%
(-.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.0%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
Results
383.0ms123×1valid
199.0ms132×0valid
4.0ms1×5exit
Compiler

Compiled 690 to 52 computations (92.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 244.0ms
backward-pass: 46.0ms (18.9% of total)
ival-sin: 44.0ms (18% of total)
ival-cos: 43.0ms (17.6% of total)
ival-mult: 40.0ms (16.4% of total)
ival-sub: 31.0ms (12.7% of total)
ival-atan2: 15.0ms (6.1% of total)
ival-add: 14.0ms (5.7% of total)
compiled-spec: 6.0ms (2.5% of total)
ival-pow: 4.0ms (1.6% of total)
const: 1.0ms (0.4% of total)

series86.0ms (0.4%)

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

189 calls:

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

rewrite446.0ms (2%)

Algorithm
1×batch-egg-rewrite
Rules
2960×*-lowering-*.f32
2960×*-lowering-*.f64
2694×/-lowering-/.f32
2694×/-lowering-/.f64
1738×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
051439
1147379
2462364
32503364
08161364
Stop Event
1×iter limit
1×node limit
Counts
23 → 731
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (- (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)))))) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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)) (cos phi1))
(* (sin theta) (sin delta))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))))
(+ (* delta (* delta (- -1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1))))
(* (cos phi1) (+ (* (- 0 delta) (* (sin phi1) (cos theta))) (cos phi1)))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(- (cos delta) (+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(+ (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* (sin delta) (* (cos phi1) (sin theta)))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
(- (cos delta) (pow (sin phi1) 2))
(pow (sin phi1) 2)
(- -1/2 (* -1/2 (pow (sin phi1) 2)))
(* (* (cos phi1) (cos theta)) (sin phi1))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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 (cos.f64 delta) (-.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 (*.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 -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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)))))
(+.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 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.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 (cos.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 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (/.f64 (+.f64 #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)))) (cos.f64 delta)))
(+.f64 (-.f64 (cos.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 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #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)))) (cos.f64 delta))
(+.f64 (+.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)))) (cos.f64 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)))))))
(-.f64 (cos.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 (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 -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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 #s(literal 0 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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (cos.f64 delta))))
(-.f64 (-.f64 (cos.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 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(-.f64 (+.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)))) (cos.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 (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 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 (+.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)) (cos.f64 delta)) #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 (*.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 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (cos.f64 delta)))
(fma.f64 #s(literal -1 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))) (cos.f64 delta))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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)))))
(+.f64 (cos.f64 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)))))))
(+.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)))))) (cos.f64 delta))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.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 phi1 #s(literal 2 binary64))) (*.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 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(-.f64 #s(literal 0 binary64) (-.f64 (/.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 #s(literal 0 binary64) (cos.f64 delta)) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.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)) (cos.f64 delta))
(*.f64 (+.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)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #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 #s(literal -1 binary64) (neg.f64 (/.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 (cos.f64 phi1)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (neg.f64 (*.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 phi1 theta)) (sin.f64 (-.f64 theta phi1)))) #s(literal 2 binary64))
(/.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 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (sin.f64 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 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))))) #s(literal -2 binary64))
(/.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 (cos.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (sin.f64 delta))) #s(literal -2 binary64))
(/.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 #s(literal 1 binary64) (cos.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.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 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta 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 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 1/2 binary64))
(+.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 (-.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 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 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))) #s(literal 1 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 (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 (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))) (/.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) (-.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 (neg.f64 (-.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 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/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 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 (-.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 (sin.f64 delta) (sin.f64 theta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (-.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 delta delta))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))))
(+.f64 (+.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 delta (*.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 -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 delta delta))))
(+.f64 (+.f64 (-.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.f64 delta (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(fma.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (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 theta) (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1)))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(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) delta) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (*.f64 delta delta) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(fma.f64 (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) delta (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (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 0 binary64) 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 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1)))) (cos.f64 phi1) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))) (cos.f64 phi1) (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #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)) (-.f64 #s(literal 0 binary64) delta)) (cos.f64 theta) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))))
(+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))) (cos.f64 phi1)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 delta (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) delta))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (*.f64 delta (cos.f64 theta)))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #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) delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 #s(literal 0 binary64) delta) (*.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 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1)))) (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) delta)) (cos.f64 theta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) 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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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) delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (neg.f64 (*.f64 delta (cos.f64 phi1))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 0 binary64) (*.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 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal -2 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1))))) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal -2 binary64) (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)))) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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) delta)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal -2 binary64) (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))))) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) #s(literal -2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal -2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) 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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) 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) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.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) (*.f64 delta (sin.f64 phi1))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (*.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))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (*.f64 delta (cos.f64 phi1))) #s(literal 1 binary64)) #s(literal -2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (-.f64 #s(literal 0 binary64) delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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) delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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) delta)) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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) delta)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (*.f64 delta (cos.f64 phi1)))) #s(literal -2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) delta) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))) #s(literal -4 binary64))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(*.f64 (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))) (cos.f64 phi1))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.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 (cos.f64 delta) (-.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 (*.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 -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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)))))
(+.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 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(+.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 (cos.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 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (/.f64 (+.f64 #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)))) (cos.f64 delta)))
(+.f64 (-.f64 (cos.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 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #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)))) (cos.f64 delta))
(+.f64 (+.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)))) (cos.f64 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)))))))
(-.f64 (cos.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 (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 -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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 #s(literal 0 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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (cos.f64 delta))))
(-.f64 (-.f64 (cos.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 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(-.f64 (+.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)))) (cos.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 (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 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 (+.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)) (cos.f64 delta)) #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 (*.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 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.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)) (cos.f64 delta)))
(fma.f64 #s(literal -1 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))) (cos.f64 delta))
(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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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)))))
(+.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 (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)) (neg.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 (-.f64 #s(literal 0 binary64) (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 (*.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)) (neg.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 (neg.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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.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 phi1 #s(literal 2 binary64))))) #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 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 (neg.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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))) (*.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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/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))))))
(+.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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.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 (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 (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 (neg.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 (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 (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 (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.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 (*.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 (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 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 (*.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 (+.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)))) #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 (*.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 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 (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 (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 phi1)) (*.f64 (*.f64 (cos.f64 phi1) (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 (*.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 (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 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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))) (-.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi1) (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 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 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))))
(+.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))))
(-.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)))))
(fma.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 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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 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 -1/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))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (neg.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))))))
(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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 delta)) (neg.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))))))
(fma.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 delta) (-.f64 #s(literal 1 binary64) (cos.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 -1/2 binary64))) (cos.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))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.f64 delta) (neg.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))))))
(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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 phi1 #s(literal 2 binary64))))) #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 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))))) (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 (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 phi1 #s(literal 2 binary64)))) (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 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 #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 phi1 #s(literal 2 binary64)))) (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 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 phi1 #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 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)))) (-.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 phi1 #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 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)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.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 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.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 theta) (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 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 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 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 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.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 2 binary64)) (*.f64 #s(literal 4 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -4 binary64) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 2 binary64)) (*.f64 #s(literal -4 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal -8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) (*.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 delta) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 phi1 #s(literal 2 binary64))))))) #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 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 (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 (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 (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 phi1 #s(literal 2 binary64))))))) #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 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 delta) (cos.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.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 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.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 theta) (sin.f64 phi1))) #s(literal 2 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 phi1 #s(literal 2 binary64))))))) #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 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #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 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 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 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 (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 phi1 #s(literal 2 binary64))))))) #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 phi1 #s(literal 2 binary64)))) (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 (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) (+.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 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))) #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 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 #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 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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 phi1 #s(literal 2 binary64))))))) #s(literal 4 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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)))) (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)))) (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 (-.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 phi1 #s(literal 2 binary64))))))) #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 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)))) (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)))) (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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 4 binary64)) (*.f64 #s(literal 2 binary64) (*.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 8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal -8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.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) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 (*.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 (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))))) (/.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 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 (-.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 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 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 4 binary64)) (*.f64 #s(literal 2 binary64) (*.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 8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) #s(literal -4 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))))) #s(literal -8 binary64))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.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) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 (*.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 (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)) (/.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 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 (-.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 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 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 #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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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))))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.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 theta) (sin.f64 phi1)))))
(/.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))))) (/.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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 #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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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)) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 theta) (sin.f64 phi1)))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.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 theta) (sin.f64 phi1)))))
(/.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)) (/.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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #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 -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 phi1 #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) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 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 phi1 #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 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #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 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 (+.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 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 #s(literal -1 binary64) (neg.f64 (/.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 (cos.f64 phi1)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.f64 (neg.f64 (*.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 phi1 theta)) (sin.f64 (-.f64 theta phi1)))) #s(literal 2 binary64))
(/.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 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (sin.f64 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 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))))) #s(literal -2 binary64))
(/.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 (cos.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.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 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (sin.f64 delta))) #s(literal -2 binary64))
(/.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 #s(literal 1 binary64) (cos.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))))
(/.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 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta 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 (*.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) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.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 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 2 binary64))
(/.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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(/.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 (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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (sin.f64 delta)) #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 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 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 (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 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64)) #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 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) (*.f64 (neg.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 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 2 binary64)))
(/.f64 (*.f64 (neg.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 (neg.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 (+.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))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.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 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (neg.f64 (+.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 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal -2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64)) #s(literal -2 binary64)))
(/.f64 (*.f64 #s(literal -1 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal -1 binary64) (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #s(literal -2 binary64)))
(/.f64 (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.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 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))))
(/.f64 (*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #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 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal -2 binary64)))
(/.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) (*.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64)))
(/.f64 (*.f64 (neg.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 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal 4 binary64))
(/.f64 (*.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (*.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1 binary64))))
(/.f64 (*.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal -1 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (*.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal -4 binary64))
(/.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 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (/.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))) (neg.f64 (-.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))) (+.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 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 (/.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))) (neg.f64 (-.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 delta theta)) (sin.f64 (+.f64 delta theta))) (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.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 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -2 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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) #s(literal 1 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.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 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64))) (neg.f64 (/.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 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (sin.f64 delta))) #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 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) #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 (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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (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 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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (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 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.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 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
(*.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 (+.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 (cos.f64 theta) (sin.f64 phi1))) (cos.f64 phi1))
(*.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 (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) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.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 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(-.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (cos.f64 delta))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 phi1 #s(literal 2 binary64))) #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 phi1 #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) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 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 phi1 #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 2 binary64) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #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 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 (+.f64 (-.f64 #s(literal 0 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal -1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal -1/2 binary64))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 #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))))) #s(literal -1/2 binary64))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64) #s(literal -1/2 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal -1/2 binary64))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal -1/2 binary64))
(*.f64 (+.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)) #s(literal -1/2 binary64))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (neg.f64 (/.f64 #s(literal 1 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 phi1 theta)) (sin.f64 (+.f64 phi1 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 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #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 (neg.f64 (cos.f64 phi1)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 (cos.f64 phi1) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.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 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(/.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))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.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 (sin.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.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))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) (cos.f64 phi1))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))))) #s(literal -1 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 theta) (sin.f64 phi1)) (cos.f64 phi1))
(*.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 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta))) (*.f64 #s(literal 1/2 binary64) (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 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 theta)) (sin.f64 (+.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))

simplify521.0ms (2.3%)

Algorithm
1×egg-herbie
Rules
6954×*-lowering-*.f32
6954×*-lowering-*.f64
3758×+-lowering-+.f64
3758×+-lowering-+.f32
1900×sum5-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
056217721
1209216373
2746516352
0839516352
Stop Event
1×iter limit
1×node limit
Counts
756 → 756
Calls
Call 1
Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ 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) (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 (* (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))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (+ (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (cos phi1) 2))
(+ (* delta (+ (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (cos phi1) 2))
(* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta)) (/ (pow (cos phi1) 2) (pow delta 2)))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta)) (/ (pow (cos phi1) 2) (pow delta 2)))))
(* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))) delta))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))) delta))))
(+ 1 (* -1/2 (pow delta 2)))
(+ 1 (+ (* -1 (* delta (* phi1 (cos theta)))) (* -1/2 (pow delta 2))))
(+ 1 (+ (* -1/2 (pow delta 2)) (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* 1/2 (pow delta 2)) 1))))))
(+ 1 (+ (* -1/2 (pow delta 2)) (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (+ (* 1/2 (pow delta 2)) (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta)))))) 1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* delta (+ (* -1/2 (* delta (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* delta (+ (* delta (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 1/2 (cos (* 2 phi1))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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 delta) (- 1/2 (* 1/2 (cos (* 2 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 delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(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) (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 (* (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))))
(- 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/2
(- (* 1/2 (pow phi1 2)) 1/2)
(- (* (pow phi1 2) (+ 1/2 (* -1/6 (pow phi1 2)))) 1/2)
(- (* (pow phi1 2) (+ 1/2 (* (pow phi1 2) (- (* 1/45 (pow phi1 2)) 1/6)))) 1/2)
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(* 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)))
Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (neg.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (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 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 theta (*.f64 theta (+.f64 (*.f64 theta (*.f64 theta (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta)) #s(literal -1/24 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* (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 phi1 #s(literal 2 binary64)))) (*.f64 delta (*.f64 delta (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(+ 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 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 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 phi1 #s(literal 2 binary64))) #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 phi1 #s(literal 2 binary64))) #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 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (+.f64 #s(literal -1/48 binary64) (*.f64 #s(literal -1/24 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(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 (*.f64 (*.f64 phi1 (*.f64 phi1 (cos.f64 delta))) #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))))
(+.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 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(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 (* (cos phi1) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(*.f64 theta (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 theta theta)))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 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 (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))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (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 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.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 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* delta (+ (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (cos phi1) 2))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* delta (+ (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (cos phi1) 2))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))
(*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta))))
(*.f64 (*.f64 delta delta) (-.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta)) (/ (pow (cos phi1) 2) (pow delta 2)))))
(*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (/.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta) delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (+ (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta)) (/ (pow (cos phi1) 2) (pow delta 2)))))
(*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (/.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta) delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))))
(* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2)))))
(*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (* (cos phi1) (* (cos theta) (sin phi1))) delta))))
(*.f64 (*.f64 delta delta) (-.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (cos.f64 phi1) delta))))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))) delta))))
(*.f64 (*.f64 delta delta) (-.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) delta)))
(* (pow delta 2) (+ (* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2)))) (* -1 (/ (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1)))) delta))))
(*.f64 (*.f64 delta delta) (-.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) delta)))
(+ 1 (* -1/2 (pow delta 2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))
(+ 1 (+ (* -1 (* delta (* phi1 (cos theta)))) (* -1/2 (pow delta 2))))
(+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 delta (cos.f64 theta)))))
(+ 1 (+ (* -1/2 (pow delta 2)) (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* 1/2 (pow delta 2)) 1))))))
(+.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 delta (*.f64 delta #s(literal 1/2 binary64))))) (*.f64 delta (cos.f64 theta)))))
(+ 1 (+ (* -1/2 (pow delta 2)) (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (+ (* 1/2 (pow delta 2)) (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta)))))) 1))))))
(+.f64 (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 delta (*.f64 delta #s(literal 1/2 binary64))) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 (*.f64 delta (cos.f64 theta))) #s(literal 2/3 binary64))))) (*.f64 delta (cos.f64 theta)))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (*.f64 theta (*.f64 theta (cos.f64 phi1))) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64)))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1))))))))
(+.f64 (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal -1/24 binary64)))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1)))))))))))
(+.f64 (+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal -1/24 binary64))) (*.f64 (*.f64 (*.f64 theta (*.f64 theta (cos.f64 phi1))) (sin.f64 phi1)) (*.f64 delta #s(literal 1/720 binary64))))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(+ (* -1 (* (pow delta 2) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 delta (cos.f64 theta))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (cos.f64 theta))) phi1)))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 (*.f64 delta (cos.f64 theta))) #s(literal 2/3 binary64)))) (*.f64 delta (cos.f64 theta)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.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 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(-.f64 #s(literal 0 binary64) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta)))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 (-.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) (neg.f64 delta))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 (-.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) (neg.f64 delta))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 (-.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) delta)) (neg.f64 delta))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 (*.f64 (*.f64 theta (*.f64 theta (cos.f64 phi1))) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal -1/24 binary64)))))))
(+ (* (cos phi1) (+ (cos phi1) (* -1 (* delta (sin phi1))))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal 1/2 binary64))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal -1/24 binary64))) (*.f64 (*.f64 (*.f64 theta (*.f64 theta (cos.f64 phi1))) (sin.f64 phi1)) (*.f64 delta #s(literal 1/720 binary64))))))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(* (cos phi1) (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1))))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 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.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (neg.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (+.f64 (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 delta #s(literal 1/6 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (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 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (cos.f64 delta) (-.f64 (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 theta (*.f64 theta (+.f64 (*.f64 theta (*.f64 theta (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta)) #s(literal -1/24 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 #s(literal -2/3 binary64) phi1))))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 phi1 (*.f64 (cos.f64 delta) #s(literal -1/3 binary64)))))))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(- 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 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(- (+ 1/2 (* delta (+ (* -1/2 (* delta (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 delta (+.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal -1/2 binary64) delta)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(- (+ 1/2 (* delta (+ (* delta (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal -1/2 binary64) delta)) (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (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 delta) (- 1/2 (* 1/2 (cos (* 2 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))))))))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64))) (*.f64 (*.f64 theta theta) (*.f64 theta theta)))))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta)))
(pow phi1 2)
(*.f64 phi1 phi1)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.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))))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(* delta (* (cos phi1) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 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 (*.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) (* (cos theta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))) (cos.f64 theta))
(* 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 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 #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 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* 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 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 #s(literal -2/3 binary64) phi1)))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/15 binary64)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (*.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 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 (*.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 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64))) (*.f64 (*.f64 theta theta) (*.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) (pow.f64 (cos.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 #s(literal 1/24 binary64) (*.f64 delta delta))))) (pow.f64 (cos.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 (*.f64 delta 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)))))) (pow.f64 (cos.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 (*.f64 phi1 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 (*.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/2
#s(literal -1/2 binary64)
(- (* 1/2 (pow phi1 2)) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1)))
(- (* (pow phi1 2) (+ 1/2 (* -1/6 (pow phi1 2)))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/6 binary64))))))
(- (* (pow phi1 2) (+ 1/2 (* (pow phi1 2) (- (* 1/45 (pow phi1 2)) 1/6)))) 1/2)
(+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/6 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/45 binary64))))))))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* -1 (+ 1/2 (* -1/2 (pow (sin phi1) 2))))
(+.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (* -1/6 (cos theta))))))
(*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 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 phi1 (*.f64 phi1 (*.f64 (cos.f64 theta) #s(literal 2/15 binary64))))))))
(* phi1 (+ (cos theta) (* (pow phi1 2) (+ (* -1/2 (cos theta)) (+ (* -1/6 (cos theta)) (* (pow phi1 2) (+ (* 1/120 (cos theta)) (+ (* 1/24 (cos theta)) (+ (* 1/12 (cos theta)) (* (pow phi1 2) (+ (* -1/144 (cos theta)) (+ (* -1/240 (cos theta)) (+ (* -1/720 (cos theta)) (* -1/5040 (cos theta)))))))))))))))
(*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) #s(literal -2/3 binary64)) (*.f64 (*.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 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 #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 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)))

eval432.0ms (1.9%)

Compiler

Compiled 80919 to 5912 computations (92.7% saved)

prune421.0ms (1.9%)

Pruning

32 alts after pruning (31 fresh and 1 done)

PrunedKeptTotal
New2021242045
Fresh9716
Picked415
Done000
Total2034322066
Accuracy
100.0%
Counts
2066 → 32
Alt Table
Click to see full alt table
StatusAccuracyProgram
82.1%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))))) lambda1)
85.1%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
78.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (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)) (fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (cos.f64 delta)))))
80.7%
(+.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) (*.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 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (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 (*.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)))))
90.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/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 (*.f64 (+.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)) (cos.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))))))
92.9%
(+.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)))))))
85.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))))
80.7%
(+.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)))))
82.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 (-.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.f64 delta (*.f64 (cos.f64 theta) (/.f64 (+.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
▶79.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
▶79.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
82.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (+.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))))))
▶76.2%
(+.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)))))
77.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)))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.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 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 delta)))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
82.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (+.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))))))
▶99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
88.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
88.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
85.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
47.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 theta)))) #s(literal -1 binary64))) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
90.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
99.8%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))) lambda1)))
✓71.5%
lambda1
Compiler

Compiled 2070 to 1391 computations (32.8% saved)

simplify174.0ms (0.8%)

Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff128
(*.f64 (+.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)) (cos.f64 delta))
✓cost-diff128
(-.f64 (*.f64 (+.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)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
✓cost-diff128
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
✓cost-diff128
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (-.f64 (*.f64 (+.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)) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
✓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 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
✓cost-diff0
(*.f64 (sin.f64 delta) theta)
✓cost-diff0
(*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (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 delta) theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
✓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) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
✓cost-diff128
(*.f64 (+.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)) (cos.f64 delta))
✓cost-diff384
(-.f64 (*.f64 (+.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)) (cos.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))))
✓cost-diff384
(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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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)))))
✓cost-diff384
(+.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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))))))
Rules
1768×sum4-define
1448×*-lowering-*.f32
1448×*-lowering-*.f64
1398×fma-lowering-fma.f32
1398×fma-lowering-fma.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
056633
1128610
2304596
3852596
42436596
55440596
67568596
08172596
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta))
(+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1)
(+ -1/2 (* 1/2 (cos (* phi1 2))))
-1/2
(* 1/2 (cos (* phi1 2)))
1/2
(cos (* phi1 2))
(* phi1 2)
2
1
(cos delta)
(* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(* (sin delta) (cos theta))
(cos theta)
(/ (+ 0 (sin (* phi1 2))) 2)
(+ 0 (sin (* phi1 2)))
0
(sin (* phi1 2))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ 1 (* delta (* delta -1/2)))
1
(* delta (* delta -1/2))
(* delta -1/2)
-1/2
(+ lambda1 (atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(* (* (sin delta) theta) (cos phi1))
(* (sin delta) theta)
(sin delta)
delta
theta
(cos phi1)
phi1
(- (cos delta) (pow (sin phi1) 2))
(cos delta)
(pow (sin phi1) 2)
(sin phi1)
2
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))
(- (cos phi1) (* (cos theta) (* delta (sin phi1))))
(* (cos theta) (* delta (sin phi1)))
(cos theta)
(* delta (sin phi1))
(sin phi1)
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
lambda1
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(* (sin delta) (* (cos phi1) (sin theta)))
(sin delta)
delta
(* (cos phi1) (sin theta))
(cos phi1)
phi1
(sin theta)
theta
(- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta))
(+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1)
(+ -1/2 (* 1/2 (cos (* phi1 2))))
-1/2
(* 1/2 (cos (* phi1 2)))
1/2
(cos (* phi1 2))
(* phi1 2)
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)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 delta) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
(* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 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 (* phi1 2))))
(+.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 (* phi1 2)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
1/2
#s(literal 1/2 binary64)
(cos (* phi1 2))
(cos.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* phi1 2)
(*.f64 phi1 #s(literal 2 binary64))
2
#s(literal 2 binary64)
1
#s(literal 1 binary64)
(cos delta)
(cos.f64 delta)
(* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 theta) #s(literal 2 binary64)))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
(/ (+ 0 (sin (* phi1 2))) 2)
(/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))
(+ 0 (sin (* phi1 2)))
(sin.f64 (*.f64 phi1 #s(literal 2 binary64)))
0
#s(literal 0 binary64)
(sin (* phi1 2))
(sin.f64 (*.f64 phi1 #s(literal 2 binary64)))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/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 (* delta (* delta -1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))
1
#s(literal 1 binary64)
(* delta (* delta -1/2))
(*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))
(* delta -1/2)
(*.f64 delta #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
(+ lambda1 (atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (* (sin delta) theta) (cos phi1))
(*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1)))
(* (sin delta) theta)
(*.f64 theta (sin.f64 delta))
(sin delta)
(sin.f64 delta)
delta
theta
(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)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1))))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(* (sin theta) (sin delta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin theta)
(sin.f64 theta)
theta
(sin delta)
(sin.f64 delta)
delta
(cos phi1)
(cos.f64 phi1)
phi1
(* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(- (cos phi1) (* (cos theta) (* delta (sin phi1))))
(-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))
(* (cos theta) (* delta (sin phi1)))
(*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))
(cos theta)
(cos.f64 theta)
(* delta (sin phi1))
(*.f64 delta (sin.f64 phi1))
(sin phi1)
(sin.f64 phi1)
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 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 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))))
lambda1
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 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 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(* (sin delta) (* (cos phi1) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(sin delta)
(sin.f64 delta)
delta
(* (cos phi1) (sin theta))
(*.f64 (sin.f64 theta) (cos.f64 phi1))
(cos phi1)
(cos.f64 phi1)
phi1
(sin theta)
(sin.f64 theta)
theta
(- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 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 (* phi1 2))))
(+.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 (* phi1 2)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
1/2
#s(literal 1/2 binary64)
(cos (* phi1 2))
(cos.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* phi1 2)
(*.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 (cos.f64 theta) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.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)

localize984.0ms (4.4%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta)))
✓accuracy99.1%
(+.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))
✓accuracy75.0%
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
✓accuracy99.7%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))))))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
✓accuracy99.7%
(*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.8%
(*.f64 (sin.f64 delta) theta)
✓accuracy99.8%
(*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1))
✓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)))
✓accuracy100.0%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓accuracy100.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
✓accuracy99.8%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(*.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)))
✓accuracy99.1%
(+.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))
✓accuracy75.0%
(+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
Results
465.0ms123×1valid
266.0ms133×0valid
Compiler

Compiled 667 to 58 computations (91.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 340.0ms
ival-sin: 91.0ms (26.7% of total)
ival-cos: 64.0ms (18.8% of total)
ival-mult: 59.0ms (17.3% of total)
ival-add: 49.0ms (14.4% of total)
backward-pass: 47.0ms (13.8% of total)
ival-atan2: 14.0ms (4.1% of total)
ival-sub: 7.0ms (2.1% of total)
ival-pow: 4.0ms (1.2% of total)
ival-div: 3.0ms (0.9% of total)
const: 1.0ms (0.3% of total)

series118.0ms (0.5%)

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

219 calls:

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

rewrite385.0ms (1.7%)

Algorithm
1×batch-egg-rewrite
Rules
4036×/-lowering-/.f32
4036×/-lowering-/.f64
3080×*-lowering-*.f32
3080×*-lowering-*.f64
1410×times-frac
Iterations

Useful iterations: 3 (0.0ms)

IterNodesCost
056412
1171395
2599349
33851341
08887341
Stop Event
1×iter limit
1×node limit
Counts
26 → 959
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2)))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ 1 (* delta (* delta -1/2))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(+ lambda1 (atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* (* (sin delta) theta) (cos phi1)) (- (cos delta) (pow (sin phi1) 2)))
(* (* (sin delta) theta) (cos phi1))
(* (sin delta) theta)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1))))))
(+ lambda1 (atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))))
(atan2 (* (sin delta) (* (cos phi1) (sin theta))) (- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))))
(- (* (+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1) (cos delta)) (* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1))))
(+ -1/2 (* 1/2 (cos (* phi1 2))))
(+ (+ -1/2 (* 1/2 (cos (* phi1 2)))) 1)
(* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(- (cos delta) (pow (sin phi1) 2))
(pow (sin phi1) 2)
(* (cos theta) (* delta (sin phi1)))
(* (cos phi1) (- (cos phi1) (* (cos theta) (* delta (sin phi1)))))
(* (sin delta) (* (cos phi1) (sin theta)))
(* (sin delta) (* (* (cos phi1) (cos theta)) (sin phi1)))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
(atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (cos.f64 delta) (-.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 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.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 (cos.f64 delta) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.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 (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.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 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.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 (cos.f64 delta) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 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)))))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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.f64 delta))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(fma.f64 (sin.f64 delta) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.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 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 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 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 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 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.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 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.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 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.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 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (sin.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta)))) (sin.f64 phi1) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (cos.f64 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)))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)))
(+.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)))))) (cos.f64 delta))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 delta) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(fma.f64 #s(literal 1 binary64) (cos.f64 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)))))))
(fma.f64 (cos.f64 delta) #s(literal -1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(fma.f64 (cos.f64 delta) #s(literal 1 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 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 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (cos.f64 delta))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 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))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/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 1 binary64) (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.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 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) #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 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta 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 theta delta)))))))
(/.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 theta delta)))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (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))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (neg.f64 (/.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 theta delta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta 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 theta delta))))) #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 theta delta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #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 1 binary64) (cos.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.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 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta))) #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 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) #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 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))))
(*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #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 theta delta))))))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #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 theta delta))) #s(literal -2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta))) #s(literal 4 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.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 theta delta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (neg.f64 (cos.f64 (-.f64 theta delta))) (-.f64 #s(literal 0 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1 binary64)))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 (-.f64 theta delta) (+.f64 theta delta)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (-.f64 (-.f64 theta delta) (+.f64 theta delta)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1/2 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.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 delta phi1)) (sin.f64 (+.f64 delta phi1))) theta)))
(/.f64 (*.f64 theta (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) theta) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.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 delta phi1)) (sin.f64 (+.f64 delta phi1))) theta)) #s(literal -2 binary64))
(*.f64 theta (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta)))
(*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) theta)
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(*.f64 theta (sin.f64 delta))
(*.f64 (sin.f64 delta) theta)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
(atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (cos.f64 delta) (-.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 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.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 (cos.f64 delta) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.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 (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+.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 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.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 (cos.f64 delta) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 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)))))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.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.f64 delta))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(fma.f64 (sin.f64 delta) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.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 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 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 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 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 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.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 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.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 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.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 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (sin.f64 delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (cos.f64 theta)))) (sin.f64 phi1) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.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) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(+.f64 #s(literal 0 binary64) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 #s(literal -1/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 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 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 (neg.f64 (neg.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) (-.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 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))
(+.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (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))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (-.f64 (*.f64 (sin.f64 theta) (cos.f64 delta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 (+.f64 (sin.f64 (+.f64 theta delta)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 theta) (cos.f64 delta)) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(neg.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (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 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64)))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (*.f64 (sin.f64 (*.f64 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 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 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 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64))) (neg.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) (neg.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) (neg.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64))) (neg.f64 (/.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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.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 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 4 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) #s(literal 1 binary64))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta delta))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -4 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (/.f64 (sin.f64 delta) #s(literal 1 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1/4 binary64))
(*.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -1/4 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))) (/.f64 (cos.f64 theta) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (/.f64 (cos.f64 theta) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (sin.f64 delta) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal 2 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)))
(*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1/4 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))))
(*.f64 (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 4 binary64)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 phi1) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (sin.f64 delta) #s(literal -2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -1 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal -2 binary64)))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/4 binary64))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/4 binary64))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/4 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/4 binary64))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal -2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 4 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 4 binary64)) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal -1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.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 theta phi1)) (cos.f64 (-.f64 phi1 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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.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 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (cos.f64 delta) #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 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 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 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 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #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 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #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 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 (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (*.f64 delta (cos.f64 theta)))
(*.f64 (*.f64 delta (sin.f64 phi1)) (cos.f64 theta))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) delta)
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta))
(+.f64 (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1))) (cos.f64 phi1)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) delta))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))
(*.f64 (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))) (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 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))))
(/.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 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) #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 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta 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 theta delta)))))))
(/.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 theta delta)))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (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))) (sin.f64 theta))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))))))
(/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (neg.f64 (/.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 theta delta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta 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 theta delta))))) #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 theta delta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #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 1 binary64) (cos.f64 phi1))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 theta) (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) #s(literal 1 binary64))) (neg.f64 (/.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 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) (cos.f64 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta))) #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 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))) #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 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))))
(*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #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 theta delta))))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (-.f64 (*.f64 (sin.f64 theta) (cos.f64 delta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 (+.f64 (sin.f64 (+.f64 theta delta)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 theta) (cos.f64 delta)) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(neg.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(/.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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (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 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))))
(/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (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 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64)))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (*.f64 (sin.f64 (*.f64 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 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 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 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (neg.f64 (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #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 theta phi1)) (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 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64))) (neg.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) (neg.f64 (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))) (neg.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) (neg.f64 (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))) #s(literal -4 binary64))
(/.f64 (neg.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) #s(literal 1 binary64))) (neg.f64 (/.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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta phi1)) (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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 theta phi1)) (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))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.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 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta))))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 4 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) #s(literal 1 binary64))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (+.f64 (cos.f64 (+.f64 theta phi1)) (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 theta delta))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -4 binary64)))
(*.f64 #s(literal -2 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (/.f64 (sin.f64 delta) #s(literal 1 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1/4 binary64))
(*.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal -1/4 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))) (/.f64 (cos.f64 theta) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (/.f64 (cos.f64 theta) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (sin.f64 delta) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -2 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal 2 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (cos.f64 theta)))
(*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal 1/4 binary64) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.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 theta phi1)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta))))
(*.f64 (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 4 binary64)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (sin.f64 phi1) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (sin.f64 delta) #s(literal -2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (sin.f64 delta) #s(literal -1 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (sin.f64 delta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal -2 binary64)))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/4 binary64))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/4 binary64))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (+.f64 theta delta) (-.f64 delta theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal -2 binary64)))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (*.f64 (sin.f64 delta) #s(literal 1 binary64)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal -1 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/4 binary64))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/4 binary64))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal -2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) #s(literal -1 binary64)) (/.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal -1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 theta) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64))
(*.f64 (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 4 binary64)) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64)))) #s(literal 4 binary64)) (/.f64 (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) #s(literal -1 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal -2 binary64)))
(*.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 (-.f64 delta theta) (+.f64 theta delta)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 delta (+.f64 theta (+.f64 theta delta))) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) #s(literal 1 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.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 theta phi1)) (cos.f64 (-.f64 phi1 theta))))))

simplify512.0ms (2.3%)

Algorithm
1×egg-herbie
Rules
4650×+-lowering-+.f64
4650×+-lowering-+.f32
4418×*-lowering-*.f32
4418×*-lowering-*.f64
1808×sum4-define
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
064816483
1243915764
2544315525
0801415525
Stop Event
1×iter limit
1×node limit
Counts
876 → 876
Calls
Call 1
Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* 2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1/2 (* delta (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1/2 (* delta (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/12 (* delta (* (cos theta) (sin (* 2 phi1))))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* 1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow theta 2) (- (* -1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(cos delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(+ (cos delta) (* (pow phi1 2) (+ (* -1 (cos delta)) (* 1/3 (* (pow phi1 2) (cos delta))))))
(+ (cos delta) (* (pow phi1 2) (+ (* -1 (cos delta)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (cos delta))) (* 1/3 (cos delta)))))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1/2 (* (pow delta 2) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/24 (* (pow delta 2) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/24 (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(* delta (* theta (cos phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* theta (cos phi1)))) (* theta (cos phi1))))
(* delta (+ (* theta (cos phi1)) (* (pow delta 2) (+ (* -1/6 (* theta (cos phi1))) (* 1/120 (* (pow delta 2) (* theta (cos phi1))))))))
(* delta (+ (* theta (cos phi1)) (* (pow delta 2) (+ (* -1/6 (* theta (cos phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* theta (cos phi1)))) (* 1/120 (* theta (cos phi1)))))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (sin delta))
(+ (* -1/2 (* (pow phi1 2) (* theta (sin delta)))) (* theta (sin delta)))
(+ (* theta (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* theta (sin delta))) (* 1/24 (* (pow phi1 2) (* theta (sin delta)))))))
(+ (* theta (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* theta (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* theta (sin delta)))) (* 1/24 (* theta (sin delta))))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (* (cos phi1) (sin delta)))
(* delta theta)
(* delta (+ theta (* -1/6 (* (pow delta 2) theta))))
(* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* 1/120 (* (pow delta 2) theta))))))
(* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) theta)) (* 1/120 theta)))))))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(* theta (sin delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (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))))))
(+ 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))))))
(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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1/2 (* delta (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (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) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(* -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
(+ 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/2 (* delta (* (cos theta) (sin (* 2 phi1)))))
(* delta (+ (* -1/12 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* 1/240 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1)))))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/240 (* (cos theta) (sin (* 2 phi1))))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (sin delta) (sin (* 2 phi1))))
(+ (* -1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* 1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* 2/15 (* (pow phi1 2) (* (cos theta) (sin delta))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -4/315 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 2/15 (* (cos theta) (sin delta)))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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)
(* delta (sin phi1))
(+ (* -1/2 (* delta (* (pow theta 2) (sin phi1)))) (* delta (sin phi1)))
(+ (* delta (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* delta (sin phi1))) (* 1/24 (* delta (* (pow theta 2) (sin phi1)))))))
(+ (* delta (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* delta (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* delta (* (pow theta 2) (sin phi1)))) (* 1/24 (* delta (sin phi1))))))))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* phi1 (cos theta)))
(* phi1 (+ (* -1/6 (* delta (* (pow phi1 2) (cos theta)))) (* delta (cos theta))))
(* phi1 (+ (* delta (cos theta)) (* (pow phi1 2) (+ (* -1/6 (* delta (cos theta))) (* 1/120 (* delta (* (pow phi1 2) (cos theta))))))))
(* phi1 (+ (* delta (cos theta)) (* (pow phi1 2) (+ (* -1/6 (* delta (cos theta))) (* (pow phi1 2) (+ (* -1/5040 (* delta (* (pow phi1 2) (cos theta)))) (* 1/120 (* delta (cos theta)))))))))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
(* delta (* (cos theta) (sin phi1)))
1
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (sin phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))))
(+ (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+ (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(* 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 (* (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))))
Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) 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))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) 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))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* 2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 #s(literal 2/3 binary64) phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1/2 (* delta (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1/2 (* delta (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 delta (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/12 (* delta (* (cos theta) (sin (* 2 phi1))))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (+.f64 (*.f64 delta (+.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 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 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- (+ (* 1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (* (sin delta) (sin (* 2 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 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 theta theta)) #s(literal -1/2 binary64))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow theta 2) (- (* -1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 theta theta)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 1/1440 binary64) (*.f64 theta theta)) #s(literal -1/48 binary64)))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* (pow phi1 2) (cos delta))))
(*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta))
(+ (cos delta) (* (pow phi1 2) (+ (* -1 (cos delta)) (* 1/3 (* (pow phi1 2) (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) (+ (* -1 (cos delta)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (cos delta))) (* 1/3 (cos delta)))))))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -2/45 binary64)))))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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))))
(+.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 (* 1/2 (cos (* 2 phi1)))))) (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta 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))) (* (pow delta 2) (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/24 (* (pow delta 2) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* (pow delta 2) (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/24 (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 delta delta) (+.f64 (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/720 binary64))))))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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 (* 1/2 (cos (* 2 phi1)))))
(*.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))) (+ 1 (* -1/2 (pow delta 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))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (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)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (* 1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ 1 (* -1/2 (pow delta 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))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* 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 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta)) (*.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 (*.f64 delta (cos.f64 phi1)) (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 (cos.f64 phi1) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (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 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 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 (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 (sin.f64 delta) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (sin.f64 delta) #s(literal -1/6 binary64)) (*.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 #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 (sin.f64 theta) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (sin.f64 theta) #s(literal -1/6 binary64)) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* delta (* theta (cos phi1)))
(*.f64 delta (*.f64 (cos.f64 phi1) theta))
(* delta (+ (* -1/6 (* (pow delta 2) (* theta (cos phi1)))) (* theta (cos phi1))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) theta)))
(* delta (+ (* theta (cos phi1)) (* (pow delta 2) (+ (* -1/6 (* theta (cos phi1))) (* 1/120 (* (pow delta 2) (* theta (cos phi1))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) theta) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) theta) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* theta (cos phi1)) (* (pow delta 2) (+ (* -1/6 (* theta (cos phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* theta (cos phi1)))) (* 1/120 (* theta (cos phi1)))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) theta) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 phi1) theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) theta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(+ (* -1/2 (* (pow phi1 2) (* theta (sin delta)))) (* theta (sin delta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) theta))
(+ (* theta (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* theta (sin delta))) (* 1/24 (* (pow phi1 2) (* theta (sin delta)))))))
(+.f64 (*.f64 (sin.f64 delta) theta) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) theta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* theta (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* theta (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* theta (sin delta)))) (* 1/24 (* theta (sin delta))))))))
(+.f64 (*.f64 (sin.f64 delta) theta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) theta) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64)))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* delta theta)
(*.f64 delta theta)
(* delta (+ theta (* -1/6 (* (pow delta 2) theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) theta))
(* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* 1/120 (* (pow delta 2) theta))))))
(*.f64 delta (+.f64 theta (*.f64 (*.f64 delta delta) (*.f64 theta (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ theta (* (pow delta 2) (+ (* -1/6 theta) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) theta)) (* 1/120 theta)))))))
(*.f64 delta (+.f64 theta (*.f64 (*.f64 delta delta) (+.f64 (*.f64 theta #s(literal -1/6 binary64)) (*.f64 (*.f64 delta delta) (*.f64 theta (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (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 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (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 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 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) (+ 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 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 phi1 (cos.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 phi1 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 2/3 binary64))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* -1/2 (* delta (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (+ (* -1/2 (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 delta (-.f64 (*.f64 delta (+.f64 #s(literal -1/4 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) #s(literal 1/6 binary64))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)) #s(literal -1 binary64))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (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 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (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 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta)) #s(literal -1/24 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(- (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* -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 (*.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 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/315 binary64))))))))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(- (* 1/2 (cos (* 2 phi1))) 1/2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/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 (*.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/2 (* delta (* (cos theta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* delta (+ (* -1/12 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))
(*.f64 delta (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta)))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* 1/240 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1)))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal -1/12 binary64) (*.f64 #s(literal 1/240 binary64) (*.f64 delta delta)))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/240 (* (cos theta) (sin (* 2 phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/12 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal -1/10080 binary64) (*.f64 delta delta)) #s(literal 1/240 binary64))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ (* -1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 theta theta))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* 1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 theta theta))))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/1440 binary64) (*.f64 theta theta))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))
(* phi1 (+ (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -2/3 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* 2/15 (* (pow phi1 2) (* (cos theta) (sin delta))))))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 #s(literal -2/3 binary64) (*.f64 #s(literal 2/15 binary64) (*.f64 phi1 phi1)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -4/315 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 2/15 (* (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)) (+.f64 (*.f64 #s(literal -4/315 binary64) (*.f64 phi1 phi1)) #s(literal 2/15 binary64))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))
(+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/24 binary64)))) (pow.f64 (cos.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 (*.f64 delta 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)))))) (pow.f64 (cos.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 (*.f64 phi1 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 (*.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 (*.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))
(* delta (sin phi1))
(*.f64 delta (sin.f64 phi1))
(+ (* -1/2 (* delta (* (pow theta 2) (sin phi1)))) (* delta (sin phi1)))
(+.f64 (*.f64 delta (sin.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) delta) (*.f64 (*.f64 theta theta) (sin.f64 phi1))))
(+ (* delta (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* delta (sin phi1))) (* 1/24 (* delta (* (pow theta 2) (sin phi1)))))))
(+.f64 (*.f64 delta (sin.f64 phi1)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 phi1))) (*.f64 (*.f64 #s(literal 1/24 binary64) delta) (*.f64 (*.f64 theta theta) (sin.f64 phi1))))))
(+ (* delta (sin phi1)) (* (pow theta 2) (+ (* -1/2 (* delta (sin phi1))) (* (pow theta 2) (+ (* -1/720 (* delta (* (pow theta 2) (sin phi1)))) (* 1/24 (* delta (sin phi1))))))))
(+.f64 (*.f64 delta (sin.f64 phi1)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta (sin.f64 phi1))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/720 binary64) delta) (*.f64 (*.f64 theta theta) (sin.f64 phi1))) (*.f64 #s(literal 1/24 binary64) (*.f64 delta (sin.f64 phi1))))))))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* phi1 (cos theta)))
(*.f64 delta (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* -1/6 (* delta (* (pow phi1 2) (cos theta)))) (* delta (cos theta))))
(*.f64 phi1 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) (*.f64 (cos.f64 theta) (*.f64 phi1 phi1))) (*.f64 delta (cos.f64 theta))))
(* phi1 (+ (* delta (cos theta)) (* (pow phi1 2) (+ (* -1/6 (* delta (cos theta))) (* 1/120 (* delta (* (pow phi1 2) (cos theta))))))))
(*.f64 phi1 (+.f64 (*.f64 delta (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta (cos.f64 theta))) (*.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta (*.f64 phi1 phi1)) (cos.f64 theta)))))))
(* phi1 (+ (* delta (cos theta)) (* (pow phi1 2) (+ (* -1/6 (* delta (cos theta))) (* (pow phi1 2) (+ (* -1/5040 (* delta (* (pow phi1 2) (cos theta)))) (* 1/120 (* delta (cos theta)))))))))
(*.f64 phi1 (+.f64 (*.f64 delta (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta (cos.f64 theta))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 (*.f64 delta (*.f64 phi1 phi1)) (cos.f64 theta))) (*.f64 #s(literal 1/120 binary64) (*.f64 delta (cos.f64 theta)))))))))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
(* delta (* (cos theta) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))
1
#s(literal 1 binary64)
(+ 1 (* -1 (* delta (* phi1 (cos theta)))))
(-.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 phi1 (cos.f64 theta))))
(+ 1 (* phi1 (+ (* -1 phi1) (* -1 (* delta (cos theta))))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (cos.f64 theta))) phi1)))
(+ 1 (* phi1 (+ (* -1 (* delta (cos theta))) (* phi1 (- (* phi1 (+ (* 1/6 (* delta (cos theta))) (* 1/2 (* delta (cos theta))))) 1)))))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 #s(literal -1 binary64) (*.f64 phi1 (*.f64 (*.f64 delta (cos.f64 theta)) #s(literal 2/3 binary64))))) (*.f64 delta (cos.f64 theta)))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (sin phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))
(+ (* 1/2 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (*.f64 theta theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(+ (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))) (* 1/2 (* delta (* (cos phi1) (sin phi1)))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/24 binary64) delta) (*.f64 (*.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 phi1))))))
(+ (* (cos phi1) (- (cos phi1) (* delta (sin phi1)))) (* (pow theta 2) (+ (* 1/2 (* delta (* (cos phi1) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* delta (* (cos phi1) (sin phi1)))) (* 1/720 (* delta (* (pow theta 2) (* (cos phi1) (sin phi1))))))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1)))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 phi1))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/24 binary64) delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 (*.f64 #s(literal 1/720 binary64) delta) (*.f64 (*.f64 theta theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1))))
(* (cos phi1) (- (cos phi1) (* delta (* (cos theta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (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 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (/ (pow (cos phi1) 2) delta)))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* -1 (* delta (+ (* -1 (/ (pow (cos phi1) 2) delta)) (* (cos phi1) (* (cos theta) (sin phi1))))))
(*.f64 delta (*.f64 (cos.f64 phi1) (-.f64 (/.f64 (cos.f64 phi1) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* delta (* (cos phi1) (sin theta)))
(*.f64 (*.f64 delta (cos.f64 phi1)) (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 (cos.f64 phi1) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (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 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 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 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta))
(* 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 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta)) (*.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) (* (cos theta) (sin phi1))))
(*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (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 (*.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 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.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 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (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 (*.f64 phi1 (cos.f64 theta)) (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 (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 #s(literal 2/15 binary64) (cos.f64 theta)) (sin.f64 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))))))))))))))))
(*.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 #s(literal 2/15 binary64) (cos.f64 theta)) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -4/315 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 (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (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/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.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))))

eval506.0ms (2.3%)

Compiler

Compiled 77572 to 4908 computations (93.7% saved)

prune438.0ms (2%)

Pruning

42 alts after pruning (41 fresh and 1 done)

PrunedKeptTotal
New2169312200
Fresh161026
Picked505
Done011
Total2190422232
Accuracy
100.0%
Counts
2232 → 42
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.4%
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
30.1%
(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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
14.1%
(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))))
99.9%
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
76.2%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) lambda1)
▶74.5%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
85.1%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
74.5%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
71.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
90.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
82.2%
(+.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 phi1 #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))))))
▶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 (*.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))))))
82.3%
(+.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 delta (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta))))))))
82.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
88.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.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))))))
85.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))))
92.9%
(+.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)))))))
80.7%
(+.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)))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))))
▶92.9%
(+.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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
82.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 delta (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 1/2 binary64)))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
77.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
70.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
76.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (cos.f64 delta)))
71.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
69.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
72.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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))))))) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
73.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
77.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)))))
75.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
78.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
68.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
88.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
87.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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))))))
▶85.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
▶77.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
74.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) theta) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
79.0%
(*.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) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))) lambda1)))
✓71.5%
lambda1
Compiler

Compiled 2356 to 1641 computations (30.3% saved)

simplify180.0ms (0.8%)

Algorithm
1×egg-herbie
Localize:

Found 20 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 (*.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 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
✓cost-diff0
(+.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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
✓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)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
✓cost-diff0
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta))
✓cost-diff0
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #s(literal 2 binary64))
✓cost-diff0
(atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
✓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)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
✓cost-diff128
(*.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)))
✓cost-diff128
(-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.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))))
✓cost-diff128
(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 (*.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)))))
✓cost-diff128
(+.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 (*.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))))))
Rules
2782×sum3-define
2256×sum4-define
1928×fma-define
1576×sum5-define
1252×*-lowering-*.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
056541
1116513
2263513
3636513
41056513
51744513
64154513
75093513
86820513
08073513
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 theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(* (* (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 theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(* (pow (cos phi1) 2) (cos delta))
(pow (cos phi1) 2)
2
(cos delta)
(* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(* (sin delta) (cos theta))
(cos theta)
(/ (+ 0 (sin (* phi1 2))) 2)
(+ 0 (sin (* phi1 2)))
0
(sin (* phi1 2))
(* phi1 2)
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2)))))
lambda1
(atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2))))
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(+ 1 (* delta (* delta -1/2)))
1
(* delta (* delta -1/2))
(* delta -1/2)
-1/2
(+ lambda1 (atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2)))))
lambda1
(atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2))))
(/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2)
(* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta))
(+ (sin (- theta phi1)) (sin (+ theta phi1)))
(sin (- theta phi1))
(- theta phi1)
theta
phi1
(sin (+ theta phi1))
(+ theta phi1)
(sin delta)
delta
2
(+ 1 (* delta (* delta -1/2)))
1
(* delta (* delta -1/2))
(* delta -1/2)
-1/2
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (cos delta) (pow (sin phi1) 2))
(cos delta)
(pow (sin phi1) 2)
(sin phi1)
phi1
2
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2)))))
(cos delta)
(+ 1/2 (* 1/2 (cos (* phi1 2))))
1/2
(* 1/2 (cos (* phi1 2)))
(cos (* phi1 2))
(* phi1 2)
2
(* (* -1/2 (sin delta)) (sin (* phi1 2)))
(* -1/2 (sin delta))
-1/2
(sin (* phi1 2))
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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
(- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64)))
(* (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 theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
(/ (+ 0 (sin (* phi1 2))) 2)
(/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))
(+ 0 (sin (* phi1 2)))
(sin.f64 (*.f64 phi1 #s(literal 2 binary64)))
0
#s(literal 0 binary64)
(sin (* phi1 2))
(sin.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* phi1 2)
(*.f64 phi1 #s(literal 2 binary64))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
(atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2))))
(atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(+ 1 (* delta (* delta -1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))
1
#s(literal 1 binary64)
(* delta (* delta -1/2))
(*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))
(* delta -1/2)
(*.f64 delta #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
(+ lambda1 (atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
(atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2)
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))
(+ (sin (- theta phi1)) (sin (+ theta phi1)))
(+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(- theta phi1)
(-.f64 theta phi1)
theta
phi1
(sin (+ theta phi1))
(sin.f64 (+.f64 theta phi1))
(+ theta phi1)
(+.f64 theta phi1)
(sin delta)
(sin.f64 delta)
delta
2
#s(literal 2 binary64)
(+ 1 (* delta (* delta -1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))
1
#s(literal 1 binary64)
(* delta (* delta -1/2))
(*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))
(* delta -1/2)
(*.f64 delta #s(literal -1/2 binary64))
-1/2
#s(literal -1/2 binary64)
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (cos delta) (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)
phi1
2
#s(literal 2 binary64)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))))
(+.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 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2)))))
(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 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #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) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))
(+.f64 (*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2)))))
(*.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(cos delta)
(cos.f64 delta)
(+ 1/2 (* 1/2 (cos (* phi1 2))))
(+.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 (* phi1 2)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(cos (* phi1 2))
(cos.f64 (*.f64 phi1 #s(literal 2 binary64)))
(* phi1 2)
(*.f64 phi1 #s(literal 2 binary64))
2
#s(literal 2 binary64)
(* (* -1/2 (sin delta)) (sin (* phi1 2)))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))
(* -1/2 (sin delta))
(/.f64 (sin.f64 delta) #s(literal -2 binary64))
-1/2
#s(literal -1/2 binary64)
(sin (* phi1 2))
(sin.f64 (*.f64 phi1 #s(literal 2 binary64)))

localize897.0ms (4%)

Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.6%
(*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
✓accuracy99.3%
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
✓accuracy99.8%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓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 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta))
✓accuracy72.9%
(sin.f64 (+.f64 theta phi1))
✓accuracy72.4%
(sin.f64 (-.f64 theta phi1))
✓accuracy70.2%
(+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))
✓accuracy100.0%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
✓accuracy100.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
✓accuracy100.0%
(sin.f64 delta)
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.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%
(*.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)))
✓accuracy99.6%
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
Results
654.0ms197×1valid
67.0ms14×2valid
51.0ms45×0valid
Compiler

Compiled 565 to 58 computations (89.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 421.0ms
ival-sin: 174.0ms (41.3% of total)
ival-cos: 61.0ms (14.5% of total)
ival-add: 53.0ms (12.6% of total)
backward-pass: 47.0ms (11.2% of total)
ival-mult: 40.0ms (9.5% of total)
ival-atan2: 19.0ms (4.5% of total)
ival-pow: 13.0ms (3.1% of total)
ival-sub: 7.0ms (1.7% of total)
ival-div: 7.0ms (1.7% of total)
const: 1.0ms (0.2% of total)

series58.0ms (0.3%)

Counts
26 → 792
Calls
Call 1
Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))>
#<alt (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))>
#<alt (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2)))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2))))>
#<alt (* (sin delta) (sin theta))>
#<alt (sin delta)>
#<alt (+ lambda1 (atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2)))))>
#<alt (atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2))))>
#<alt (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2)>
#<alt (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2)))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (pow (cos phi1) 2)>
#<alt (+ (sin (- theta phi1)) (sin (+ theta phi1)))>
#<alt (sin (- theta phi1))>
#<alt (sin (+ theta phi1))>
#<alt (- (cos delta) (pow (sin phi1) 2))>
#<alt (pow (sin phi1) 2)>
#<alt (+ 1/2 (* 1/2 (cos (* phi1 2))))>
#<alt (* (* -1/2 (sin delta)) (sin (* phi1 2)))>
Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* 2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (pow (cos phi1) 2)>
#<alt (+ (* -1/2 (* delta (* (cos theta) (sin (* 2 phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/12 (* delta (* (cos theta) (sin (* 2 phi1))))))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))>
#<alt (- (+ (* 1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))>
#<alt (* 1/2 (* delta (* (cos theta) (sin (* 2 phi1)))))>
#<alt (* delta (+ (* -1/12 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))>
#<alt (* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* 1/240 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1)))))))))>
#<alt (* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/240 (* (cos theta) (sin (* 2 phi1))))))))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (+ (* -1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))>
#<alt (+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* 1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))))))>
#<alt (+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* 2/15 (* (pow phi1 2) (* (cos theta) (sin delta))))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -4/315 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 2/15 (* (cos theta) (sin delta)))))))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))>
#<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 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))>
#<alt (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))>
#<alt (+ (* 1/2 (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))))>
#<alt (+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))))))>
#<alt (+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1))))))) (* 1/2 (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* 1/2 (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))) (* (sin delta) (sin theta)))>
#<alt (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin delta) (sin theta)))) (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))) (* (sin delta) (sin theta)))>
#<alt (+ (* phi1 (+ (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))) (* phi1 (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/2 (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta)))))))))) (* (sin delta) (sin theta)))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))>
#<alt (* 1/2 (* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* delta (+ (* -1/12 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))>
#<alt (* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/240 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))>
#<alt (* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/240 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))>
#<alt (* (sin delta) (+ (sin phi1) (sin (neg phi1))))>
#<alt (+ (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))>
#<alt (+ (* theta (+ (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))>
#<alt (+ (* theta (+ (* theta (+ (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))) (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))>
#<alt (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))>
#<alt (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))>
#<alt (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))>
#<alt (* 2 (* (sin delta) (sin theta)))>
#<alt (+ (* 2 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))>
#<alt (+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* -1 (* phi1 (* (sin delta) (sin theta)))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))>
#<alt (+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* phi1 (+ (* -1 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))>
#<alt (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))>
#<alt (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))>
#<alt (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))>
#<alt (* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* -1/6 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))>
#<alt (* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/120 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))>
#<alt (* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/120 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 (* 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 (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 (+ (sin phi1) (sin (neg phi1)))>
#<alt (+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (cos (neg phi1))))))>
#<alt (+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))))))>
#<alt (+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (+ (* -1/2 (sin (neg phi1))) (* theta (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))))))))))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))>
#<alt (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))>
#<alt (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))>
#<alt (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))>
#<alt (* 2 (sin theta))>
#<alt (+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (* -1 (cos theta)))))>
#<alt (+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* -1 (* phi1 (sin theta)))))))>
#<alt (+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* phi1 (+ (* -1 (sin theta)) (* phi1 (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))))))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ phi1 theta)) (sin (- theta phi1)))>
#<alt (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))>
#<alt (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))>
#<alt (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))>
#<alt (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))>
#<alt (sin (neg phi1))>
#<alt (+ (sin (neg phi1)) (* theta (cos (neg phi1))))>
#<alt (+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* -1/2 (* theta (sin (neg phi1)))))))>
#<alt (+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin (neg phi1))) (* -1/6 (* theta (cos (neg phi1)))))))))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (neg (+ phi1 (* -1 theta))))>
#<alt (sin (neg (+ phi1 (* -1 theta))))>
#<alt (sin (neg (+ phi1 (* -1 theta))))>
#<alt (sin (neg (+ phi1 (* -1 theta))))>
#<alt (sin theta)>
#<alt (+ (sin theta) (* -1 (* phi1 (cos theta))))>
#<alt (+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* -1/2 (* phi1 (sin theta))))))>
#<alt (+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* phi1 (+ (* -1/2 (sin theta)) (* 1/6 (* phi1 (cos theta))))))))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (- theta phi1))>
#<alt (sin (+ theta (* -1 phi1)))>
#<alt (sin (+ theta (* -1 phi1)))>
#<alt (sin (+ theta (* -1 phi1)))>
#<alt (sin (+ theta (* -1 phi1)))>
#<alt (sin phi1)>
#<alt (+ (sin phi1) (* theta (cos phi1)))>
#<alt (+ (sin phi1) (* theta (+ (cos phi1) (* -1/2 (* theta (sin phi1))))))>
#<alt (+ (sin phi1) (* theta (+ (cos phi1) (* theta (+ (* -1/2 (sin phi1)) (* -1/6 (* theta (cos phi1))))))))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (- phi1 (* -1 theta)))>
#<alt (sin (- phi1 (* -1 theta)))>
#<alt (sin (- phi1 (* -1 theta)))>
#<alt (sin (- phi1 (* -1 theta)))>
#<alt (sin theta)>
#<alt (+ (sin theta) (* phi1 (cos theta)))>
#<alt (+ (sin theta) (* phi1 (+ (cos theta) (* -1/2 (* phi1 (sin theta))))))>
#<alt (+ (sin theta) (* phi1 (+ (cos theta) (* phi1 (+ (* -1/2 (sin theta)) (* -1/6 (* phi1 (cos theta))))))))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (+ phi1 theta))>
#<alt (sin (- theta (* -1 phi1)))>
#<alt (sin (- theta (* -1 phi1)))>
#<alt (sin (- theta (* -1 phi1)))>
#<alt (sin (- theta (* -1 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>
#<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/2 (* delta (sin (* 2 phi1))))>
#<alt (* delta (+ (* -1/2 (sin (* 2 phi1))) (* 1/12 (* (pow delta 2) (sin (* 2 phi1))))))>
#<alt (* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (* (pow delta 2) (sin (* 2 phi1)))) (* 1/12 (sin (* 2 phi1)))))))>
#<alt (* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* 1/12 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (sin (* 2 phi1))) (* 1/10080 (* (pow delta 2) (sin (* 2 phi1))))))))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1 (* phi1 (sin delta)))>
#<alt (* phi1 (+ (* -1 (sin delta)) (* 2/3 (* (pow phi1 2) (sin delta)))))>
#<alt (* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (* (pow phi1 2) (sin delta))) (* 2/3 (sin delta))))))>
#<alt (* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* 2/3 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (sin delta)) (* 4/315 (* (pow phi1 2) (sin delta)))))))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
#<alt (* -1/2 (* (sin delta) (sin (* 2 phi1))))>
Calls

198 calls:

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

rewrite305.0ms (1.4%)

Algorithm
1×batch-egg-rewrite
Rules
2014×sum4-define
1958×sum3-define
1888×fnmadd-define
1870×*-lowering-*.f32
1870×*-lowering-*.f64
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
056348
1170297
2663297
34082297
08034297
Stop Event
1×iter limit
1×node limit
Counts
26 → 581
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))))
(- (* (pow (cos phi1) 2) (cos delta)) (* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2)))
(* (* (sin delta) (cos theta)) (/ (+ 0 (sin (* phi1 2))) 2))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* delta (* delta -1/2))))
(* (sin delta) (sin theta))
(sin delta)
(+ lambda1 (atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2)))))
(atan2 (/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2) (+ 1 (* delta (* delta -1/2))))
(/ (* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta)) 2)
(* (+ (sin (- theta phi1)) (sin (+ theta phi1))) (sin delta))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (cos delta) (+ 1/2 (* 1/2 (cos (* phi1 2))))) (* (* -1/2 (sin delta)) (sin (* phi1 2)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(pow (cos phi1) 2)
(+ (sin (- theta phi1)) (sin (+ theta phi1)))
(sin (- theta phi1))
(sin (+ theta phi1))
(- (cos delta) (pow (sin phi1) 2))
(pow (sin phi1) 2)
(+ 1/2 (* 1/2 (cos (* phi1 2))))
(* (* -1/2 (sin delta)) (sin (* phi1 2)))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (+.f64 (*.f64 (neg.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (+.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(+.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64))))
(+.f64 (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta)))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))))
(-.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(-.f64 (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))
(fma.f64 (sin.f64 delta) (/.f64 (cos.f64 theta) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (cos.f64 delta) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 delta) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 delta)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (+.f64 (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (cos.f64 phi1) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))))))
(fma.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(fma.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (-.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))))))
(neg.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64)))
(/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -4 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 delta) (-.f64 #s(literal 0 binary64) (cos.f64 theta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -4 binary64))
(/.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (neg.f64 (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal -2 binary64)))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal -1 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal 2 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)))) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) (*.f64 (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64)))
(/.f64 (*.f64 (sin.f64 (*.f64 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 #s(literal 0 binary64) (sin.f64 (*.f64 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 (neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 4 binary64))
(/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta)))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal 4 binary64)))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 4 binary64)))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -4 binary64)))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (/.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) #s(literal -4 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (sin.f64 delta))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (cos.f64 theta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta)))) #s(literal 1/4 binary64))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 theta delta))) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/4 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (cos.f64 theta))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 theta) #s(literal 2 binary64)) (/.f64 (sin.f64 delta) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 1 binary64)) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal -2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 (-.f64 (-.f64 theta delta) delta) theta) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.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 theta delta))) #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 (-.f64 (-.f64 theta delta) delta) theta) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 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 theta delta))) #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 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1/2 binary64))
(sin.f64 delta)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1)))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (-.f64 theta phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (+.f64 theta phi1))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (+.f64 theta phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (-.f64 theta phi1))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (sin.f64 (-.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (+.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (sin.f64 (+.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (-.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(neg.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (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 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))))
(/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #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 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) #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 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal -1/2 binary64)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 #s(literal 2 binary64) (sin.f64 delta))))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (sin.f64 delta))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))) #s(literal -1 binary64)))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 (sin.f64 delta) #s(literal -2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 #s(literal 2 binary64) (sin.f64 delta))) #s(literal 2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 theta))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))))
(+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 delta)))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))))
(+.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 delta)))
(-.f64 #s(literal 0 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(fma.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))))
(fma.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1)) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))))
(fma.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 delta) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))))
(fma.f64 (sin.f64 (+.f64 theta phi1)) (sin.f64 delta) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))))
(neg.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(/.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (/.f64 (-.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta))))))) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))
(*.f64 (sin.f64 delta) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))))
(*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (sin.f64 delta))))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) (sin.f64 delta)))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))))
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta))
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) (*.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 #s(literal -1 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (sin.f64 delta))) #s(literal 2 binary64))
(*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))
(*.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 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))))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 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))))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 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)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) lambda1)
(atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1)))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (-.f64 theta phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (+.f64 theta phi1))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (+.f64 theta phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (sin.f64 (-.f64 theta phi1))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))) (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (-.f64 theta phi1))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (sin.f64 (-.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (+.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (sin.f64 (+.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (-.f64 theta phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(neg.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(neg.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (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 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))))
(/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #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 theta delta))))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (sin.f64 delta)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) (cos.f64 phi1)) #s(literal -2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) #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 (sin.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal -1/2 binary64)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 #s(literal 2 binary64) (sin.f64 delta))))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (sin.f64 delta))))
(*.f64 #s(literal -1/2 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))) #s(literal -1 binary64)))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (/.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(*.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal -2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 (sin.f64 delta) #s(literal -2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) #s(literal 2 binary64)) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (/.f64 #s(literal 2 binary64) (sin.f64 delta))) #s(literal 2 binary64))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 #s(literal 1 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))) #s(literal -1/2 binary64))
(*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (sin.f64 theta))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (sin.f64 delta) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (-.f64 theta delta)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(neg.f64 (/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (-.f64 (-.f64 (-.f64 theta delta) delta) theta) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.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 theta delta))) #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 (-.f64 (-.f64 theta delta) delta) theta) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 theta delta) (+.f64 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 theta delta))) #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 theta delta)) (cos.f64 (+.f64 theta delta)))) #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) phi1)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (+.f64 (log.f64 (cos.f64 phi1)) (log.f64 (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))))
(/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 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)))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64))) #s(literal 1/2 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1)))
(+.f64 (sin.f64 (-.f64 theta phi1)) (+.f64 (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 (+.f64 theta phi1))))
(+.f64 (sin.f64 (+.f64 theta phi1)) (sin.f64 (-.f64 theta phi1)))
(+.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 (+.f64 theta phi1))))
(+.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))))
(+.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(+.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(+.f64 (+.f64 (sin.f64 (+.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(-.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1))))
(-.f64 (+.f64 (sin.f64 (+.f64 theta phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(fma.f64 (sin.f64 theta) (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (sin.f64 theta) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 (cos.f64 phi1) (sin.f64 theta) (+.f64 (sin.f64 (-.f64 theta phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (sin.f64 theta) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1)))))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (/.f64 (-.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta))))))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (/.f64 (-.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta))) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)))))) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))))
(*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))))
(*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64))))
(*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))))
(+.f64 (sin.f64 (-.f64 theta phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+.f64 (sin.f64 (-.f64 theta phi1)) (+.f64 (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+.f64 (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (sin.f64 (-.f64 theta phi1)))
(+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(-.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(-.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(sin.f64 (-.f64 theta phi1))
(fma.f64 (sin.f64 theta) (cos.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (sin.f64 theta) (cos.f64 phi1) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (cos.f64 phi1) (sin.f64 theta) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (cos.f64 phi1) (sin.f64 theta) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (-.f64 (+.f64 theta phi1) theta) phi1) #s(literal 2 binary64)))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) #s(literal 1/2 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1 binary64) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (*.f64 (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64)))) #s(literal 1 binary64) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (/.f64 (+.f64 theta (-.f64 theta #s(literal 0 binary64))) #s(literal 2 binary64)))) (/.f64 (cos.f64 (/.f64 (-.f64 theta (+.f64 (*.f64 phi1 #s(literal 2 binary64)) theta)) #s(literal 2 binary64))) #s(literal 2 binary64)) (neg.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(+.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(sin.f64 (+.f64 theta phi1))
(fma.f64 (sin.f64 theta) (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (sin.f64 theta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(fma.f64 (cos.f64 theta) (sin.f64 phi1) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (cos.f64 theta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(+.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 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.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 #s(literal 0 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (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 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))))
(exp.f64 (+.f64 (log.f64 (sin.f64 phi1)) (log.f64 (sin.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(-.f64 (/.f64 (cos.f64 #s(literal 0 binary64)) #s(literal 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 (cos.f64 #s(literal 0 binary64)) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) #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)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 (-.f64 (cos.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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 0 binary64) phi1)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (+.f64 (log.f64 (cos.f64 phi1)) (log.f64 (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64)))))
(/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 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)))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 #s(literal 0 binary64))) #s(literal 1/2 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) #s(literal 0 binary64))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(fma.f64 (sin.f64 delta) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 0 binary64))
(fma.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 0 binary64))
(fma.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) #s(literal 0 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 0 binary64))
(fma.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (sin.f64 delta) #s(literal 0 binary64))
(fma.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64) #s(literal 0 binary64))
(neg.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(/.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (/.f64 #s(literal 2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 delta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (sin.f64 delta)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (-.f64 delta (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (+.f64 delta (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (+.f64 delta (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64)) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(*.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(*.f64 (/.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -2 binary64)) (sin.f64 delta))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (/.f64 (sin.f64 delta) #s(literal 2 binary64)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (/.f64 (sin.f64 delta) #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))

simplify800.0ms (3.6%)

Algorithm
1×egg-herbie
Rules
7278×*-lowering-*.f32
7278×*-lowering-*.f64
3716×+-lowering-+.f64
3716×+-lowering-+.f32
1714×associate-*r*
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
064513832
1237112997
2790812978
0814712978
Stop Event
1×iter limit
1×node limit
Counts
792 → 792
Calls
Call 1
Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* 2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(pow (cos phi1) 2)
(+ (* -1/2 (* delta (* (cos theta) (sin (* 2 phi1))))) (pow (cos phi1) 2))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/12 (* delta (* (cos theta) (sin (* 2 phi1))))))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* 1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(* 1/2 (* delta (* (cos theta) (sin (* 2 phi1)))))
(* delta (+ (* -1/12 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* 1/240 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1)))))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/240 (* (cos theta) (sin (* 2 phi1))))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (sin delta) (sin (* 2 phi1))))
(+ (* -1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* 1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* 2/15 (* (pow phi1 2) (* (cos theta) (sin delta))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -4/315 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 2/15 (* (cos theta) (sin delta)))))))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(* 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)
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+ (* 1/2 (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))))
(+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))))))
(+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1))))))) (* 1/2 (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))))))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(* (sin delta) (sin theta))
(+ (* 1/2 (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))) (* (sin delta) (sin theta)))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (sin delta) (sin theta)))) (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))) (* (sin delta) (sin theta)))
(+ (* phi1 (+ (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))) (* phi1 (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/2 (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta)))))))))) (* (sin delta) (sin theta)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(* 1/2 (* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* delta (+ (* -1/12 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))
(* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/240 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))
(* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/240 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(* (sin delta) (+ (sin phi1) (sin (neg phi1))))
(+ (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+ (* theta (+ (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+ (* theta (+ (* theta (+ (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))) (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(* 2 (* (sin delta) (sin theta)))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* -1 (* phi1 (* (sin delta) (sin theta)))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* phi1 (+ (* -1 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* -1/6 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/120 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/120 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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)))
(* 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 (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)
(+ (sin phi1) (sin (neg phi1)))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (cos (neg phi1))))))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))))))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (+ (* -1/2 (sin (neg phi1))) (* theta (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))))))))))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(* 2 (sin theta))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (* -1 (cos theta)))))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* -1 (* phi1 (sin theta)))))))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* phi1 (+ (* -1 (sin theta)) (* phi1 (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))))))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(sin (neg phi1))
(+ (sin (neg phi1)) (* theta (cos (neg phi1))))
(+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* -1/2 (* theta (sin (neg phi1)))))))
(+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin (neg phi1))) (* -1/6 (* theta (cos (neg phi1)))))))))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (neg (+ phi1 (* -1 theta))))
(sin (neg (+ phi1 (* -1 theta))))
(sin (neg (+ phi1 (* -1 theta))))
(sin (neg (+ phi1 (* -1 theta))))
(sin theta)
(+ (sin theta) (* -1 (* phi1 (cos theta))))
(+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* -1/2 (* phi1 (sin theta))))))
(+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* phi1 (+ (* -1/2 (sin theta)) (* 1/6 (* phi1 (cos theta))))))))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (- theta phi1))
(sin (+ theta (* -1 phi1)))
(sin (+ theta (* -1 phi1)))
(sin (+ theta (* -1 phi1)))
(sin (+ theta (* -1 phi1)))
(sin phi1)
(+ (sin phi1) (* theta (cos phi1)))
(+ (sin phi1) (* theta (+ (cos phi1) (* -1/2 (* theta (sin phi1))))))
(+ (sin phi1) (* theta (+ (cos phi1) (* theta (+ (* -1/2 (sin phi1)) (* -1/6 (* theta (cos phi1))))))))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (- phi1 (* -1 theta)))
(sin (- phi1 (* -1 theta)))
(sin (- phi1 (* -1 theta)))
(sin (- phi1 (* -1 theta)))
(sin theta)
(+ (sin theta) (* phi1 (cos theta)))
(+ (sin theta) (* phi1 (+ (cos theta) (* -1/2 (* phi1 (sin theta))))))
(+ (sin theta) (* phi1 (+ (cos theta) (* phi1 (+ (* -1/2 (sin theta)) (* -1/6 (* phi1 (cos theta))))))))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (+ phi1 theta))
(sin (- theta (* -1 phi1)))
(sin (- theta (* -1 phi1)))
(sin (- theta (* -1 phi1)))
(sin (- theta (* -1 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
(+ 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/2 (* delta (sin (* 2 phi1))))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* 1/12 (* (pow delta 2) (sin (* 2 phi1))))))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (* (pow delta 2) (sin (* 2 phi1)))) (* 1/12 (sin (* 2 phi1)))))))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* 1/12 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (sin (* 2 phi1))) (* 1/10080 (* (pow delta 2) (sin (* 2 phi1))))))))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1 (* phi1 (sin delta)))
(* phi1 (+ (* -1 (sin delta)) (* 2/3 (* (pow phi1 2) (sin delta)))))
(* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (* (pow phi1 2) (sin delta))) (* 2/3 (sin delta))))))
(* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* 2/3 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (sin delta)) (* 4/315 (* (pow phi1 2) (sin delta)))))))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 phi1 (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* 2/3 (* phi1 (* (cos theta) (sin delta)))))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 #s(literal 2/3 binary64))) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1/2 (* delta (* (cos theta) (sin (* 2 phi1))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) delta)) (cos.f64 theta)))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/12 (* delta (* (cos theta) (sin (* 2 phi1))))))) (* 1/2 (* (cos theta) (sin (* 2 phi1)))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (+.f64 (*.f64 delta (+.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))
(- (+ (* 1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (*.f64 theta theta) #s(literal 1/4 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 theta theta)) #s(literal 1/4 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))) (* -1/4 (* (sin delta) (sin (* 2 phi1))))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(+.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal 1/1440 binary64) (*.f64 theta theta)) #s(literal -1/48 binary64)))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(- (* (cos delta) (pow (cos phi1) 2)) (* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))) (cos.f64 theta)))
(* 1/2 (* delta (* (cos theta) (sin (* 2 phi1)))))
(*.f64 (*.f64 delta (*.f64 #s(literal 1/2 binary64) (cos.f64 theta))) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))
(* delta (+ (* -1/12 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/2 (* (cos theta) (sin (* 2 phi1))))))
(*.f64 delta (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta)))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* 1/240 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1)))))))))
(*.f64 delta (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (cos.f64 theta) #s(literal 1/2 binary64))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal -1/12 binary64) (*.f64 #s(literal 1/240 binary64) (*.f64 delta delta)))))))
(* delta (+ (* 1/2 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/12 (* (cos theta) (sin (* 2 phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (* (cos theta) (sin (* 2 phi1))))) (* 1/240 (* (cos theta) (sin (* 2 phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta)))) (*.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 #s(literal -1/10080 binary64) (*.f64 delta delta)) #s(literal 1/240 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(+ (* -1/4 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/2 (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 theta theta))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* 1/48 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal -1/4 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 theta theta))))))
(+ (* 1/2 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/4 (* (sin delta) (sin (* 2 phi1)))) (* (pow theta 2) (+ (* -1/1440 (* (pow theta 2) (* (sin delta) (sin (* 2 phi1))))) (* 1/48 (* (sin delta) (sin (* 2 phi1)))))))))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 theta theta)))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/1440 binary64) (*.f64 theta theta)))) (*.f64 (*.f64 theta theta) (*.f64 theta theta))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* -2/3 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta))))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -2/3 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* 2/15 (* (pow phi1 2) (* (cos theta) (sin delta))))))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 #s(literal -2/3 binary64) (*.f64 #s(literal 2/15 binary64) (*.f64 phi1 phi1)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -2/3 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -4/315 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 2/15 (* (cos theta) (sin delta)))))))))
(*.f64 phi1 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2/3 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (*.f64 #s(literal -4/315 binary64) (*.f64 phi1 phi1)) #s(literal 2/15 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1)))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(* 1/2 (* (cos theta) (* (sin delta) (sin (* 2 phi1)))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(* 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 (*.f64 delta 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 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (sin.f64 theta)) (*.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)))))
(* (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))
delta
(* delta (+ 1 (* -1/6 (pow delta 2))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta 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 (*.f64 (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))) delta) delta)))
(* 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 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (-.f64 #s(literal 0 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (+ 1 (* -1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(atan2 (* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (- 1 (* 1/2 (pow delta 2))))
(atan2.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
(* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(*.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(+ (* 1/2 (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sin.f64 delta) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 theta (*.f64 #s(literal 2 binary64) (cos.f64 phi1))))))
(+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))))))
(+.f64 (*.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (*.f64 (*.f64 theta #s(literal 1/2 binary64)) (+.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 theta #s(literal -1/2 binary64)) (-.f64 (sin.f64 phi1) (sin.f64 phi1)))))))
(+ (* 1/2 (* (sin delta) (+ (sin phi1) (sin (neg phi1))))) (* theta (+ (* 1/2 (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* theta (+ (* 1/2 (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1))))))) (* 1/2 (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))))))))
(+.f64 (*.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))) (*.f64 theta (+.f64 (*.f64 (sin.f64 delta) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) #s(literal 1/2 binary64))) (*.f64 theta (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 (*.f64 (sin.f64 delta) theta) (*.f64 (cos.f64 phi1) #s(literal -1/3 binary64)))))))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* 1/2 (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))) (* (sin delta) (sin theta)))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 (sin.f64 delta)) #s(literal 0 binary64)))
(+ (* phi1 (+ (* -1/2 (* phi1 (* (sin delta) (sin theta)))) (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))) (* (sin delta) (sin theta)))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 phi1 (sin.f64 delta)) #s(literal 0 binary64)))
(+ (* phi1 (+ (* 1/2 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))) (* phi1 (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/2 (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta)))))))))) (* (sin delta) (sin theta)))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64)) (*.f64 phi1 (+.f64 (*.f64 (*.f64 phi1 (sin.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) #s(literal -1/2 binary64))))))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 #s(literal 1/2 binary64) delta))
(* delta (+ (* -1/12 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))
(*.f64 delta (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta)))))
(* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/240 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))
(*.f64 delta (+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 #s(literal -1/12 binary64) (*.f64 #s(literal 1/240 binary64) (*.f64 delta delta)))))))
(* delta (+ (* 1/2 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/12 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/10080 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/240 (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 (*.f64 #s(literal -1/10080 binary64) (*.f64 delta delta)) #s(literal 1/240 binary64)))))))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* 1/2 (* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))
(*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64)))
(* (sin delta) (+ (sin phi1) (sin (neg phi1))))
(*.f64 (sin.f64 delta) (-.f64 (sin.f64 phi1) (sin.f64 phi1)))
(+ (* theta (* (sin delta) (+ (cos phi1) (cos (neg phi1))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+.f64 (*.f64 (sin.f64 delta) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 theta (*.f64 #s(literal 2 binary64) (cos.f64 phi1)))))
(+ (* theta (+ (* theta (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1)))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+.f64 (*.f64 (sin.f64 delta) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 theta (+.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 theta #s(literal -1/2 binary64)) (-.f64 (sin.f64 phi1) (sin.f64 phi1)))))))
(+ (* theta (+ (* theta (+ (* theta (* (sin delta) (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))) (* (sin delta) (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))) (* (sin delta) (+ (cos phi1) (cos (neg phi1)))))) (* (sin delta) (+ (sin phi1) (sin (neg phi1)))))
(+.f64 (*.f64 (sin.f64 delta) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 theta (+.f64 (*.f64 (sin.f64 delta) (*.f64 #s(literal 2 binary64) (cos.f64 phi1))) (*.f64 theta (+.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 (*.f64 (sin.f64 delta) theta) (*.f64 (cos.f64 phi1) #s(literal -1/3 binary64))))))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* 2 (* (sin delta) (sin theta)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) #s(literal 2 binary64)))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (cos theta) (* -1 (cos theta))))))
(+.f64 (*.f64 (*.f64 phi1 (sin.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) #s(literal 2 binary64))))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* -1 (* phi1 (* (sin delta) (sin theta)))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) #s(literal 2 binary64))) (*.f64 phi1 (-.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64)) (*.f64 (sin.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ (* 2 (* (sin delta) (sin theta))) (* phi1 (+ (* phi1 (+ (* -1 (* (sin delta) (sin theta))) (* phi1 (* (sin delta) (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))) (* (sin delta) (+ (cos theta) (* -1 (cos theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) #s(literal 2 binary64))) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) #s(literal 0 binary64)) (*.f64 phi1 (-.f64 (*.f64 (*.f64 phi1 (sin.f64 delta)) #s(literal 0 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1)))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* delta (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 delta (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* -1/6 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* 1/120 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))))))))
(*.f64 delta (+.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (sin (+ phi1 theta)) (+ (sin (- theta phi1)) (* (pow delta 2) (+ (* -1/6 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))) (* 1/120 (+ (sin (+ phi1 theta)) (sin (- theta phi1)))))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))) (*.f64 (*.f64 (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(* (sin delta) (+ (sin (+ phi1 theta)) (sin (- theta phi1))))
(*.f64 (sin.f64 delta) (+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.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 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.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 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.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 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))) lambda1)) 1)))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.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 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(atan2 (* (sin delta) (sin theta)) (- (cos delta) (pow (sin phi1) 2)))
(atan2.f64 (*.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))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))) (neg.f64 lambda1))) (neg.f64 lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (* -1/2 (* (sin delta) (sin (* 2 phi1)))) (* (cos delta) (+ 1/2 (* 1/2 (cos (* 2 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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(*.f64 theta (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 theta theta)))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (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 #s(literal 1 binary64) (*.f64 (*.f64 delta 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 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.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)))))
(* (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 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 phi1 phi1))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (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 (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 #s(literal 1 binary64) (*.f64 (*.f64 delta 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 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (sin.f64 theta)) (*.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)))))
(* (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 (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))
(+ (sin phi1) (sin (neg phi1)))
(-.f64 (sin.f64 phi1) (sin.f64 phi1))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (cos (neg phi1))))))
(+.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 theta (*.f64 #s(literal 2 binary64) (cos.f64 phi1))))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (* -1/2 (sin (neg phi1))))))))))
(+.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 theta (+.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (*.f64 (*.f64 theta #s(literal -1/2 binary64)) (-.f64 (sin.f64 phi1) (sin.f64 phi1))))))
(+ (sin phi1) (+ (sin (neg phi1)) (* theta (+ (cos phi1) (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin phi1)) (+ (* -1/2 (sin (neg phi1))) (* theta (+ (* -1/6 (cos phi1)) (* -1/6 (cos (neg phi1)))))))))))))
(+.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (*.f64 theta (+.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi1)) (*.f64 theta (+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (sin.f64 phi1) (sin.f64 phi1))) (*.f64 theta (*.f64 (cos.f64 phi1) #s(literal -1/3 binary64))))))))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (neg (+ phi1 (* -1 theta)))) (sin (- phi1 (* -1 theta))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(* 2 (sin theta))
(*.f64 (sin.f64 theta) #s(literal 2 binary64))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (* -1 (cos theta)))))
(+.f64 (*.f64 (sin.f64 theta) #s(literal 2 binary64)) (*.f64 phi1 #s(literal 0 binary64)))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* -1 (* phi1 (sin theta)))))))
(+.f64 (*.f64 (sin.f64 theta) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 (sin.f64 theta) (-.f64 #s(literal 0 binary64) phi1))))
(+ (* 2 (sin theta)) (* phi1 (+ (cos theta) (+ (* -1 (cos theta)) (* phi1 (+ (* -1 (sin theta)) (* phi1 (+ (* -1/6 (cos theta)) (* 1/6 (cos theta))))))))))
(+.f64 (*.f64 (sin.f64 theta) #s(literal 2 binary64)) (*.f64 phi1 (*.f64 phi1 (-.f64 (*.f64 phi1 #s(literal 0 binary64)) (sin.f64 theta)))))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ phi1 theta)) (sin (- theta phi1)))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(+ (sin (+ theta (* -1 phi1))) (sin (- theta (* -1 phi1))))
(+.f64 (sin.f64 (+.f64 phi1 theta)) (sin.f64 (-.f64 theta phi1)))
(sin (neg phi1))
(-.f64 #s(literal 0 binary64) (sin.f64 phi1))
(+ (sin (neg phi1)) (* theta (cos (neg phi1))))
(-.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 phi1))
(+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* -1/2 (* theta (sin (neg phi1)))))))
(-.f64 (*.f64 theta (+.f64 (cos.f64 phi1) (*.f64 theta (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))) (sin.f64 phi1))
(+ (sin (neg phi1)) (* theta (+ (cos (neg phi1)) (* theta (+ (* -1/2 (sin (neg phi1))) (* -1/6 (* theta (cos (neg phi1)))))))))
(-.f64 (*.f64 theta (+.f64 (cos.f64 phi1) (*.f64 theta (+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (*.f64 #s(literal -1/6 binary64) theta)))))) (sin.f64 phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (neg (+ phi1 (* -1 theta))))
(sin.f64 (-.f64 theta phi1))
(sin (neg (+ phi1 (* -1 theta))))
(sin.f64 (-.f64 theta phi1))
(sin (neg (+ phi1 (* -1 theta))))
(sin.f64 (-.f64 theta phi1))
(sin (neg (+ phi1 (* -1 theta))))
(sin.f64 (-.f64 theta phi1))
(sin theta)
(sin.f64 theta)
(+ (sin theta) (* -1 (* phi1 (cos theta))))
(-.f64 (sin.f64 theta) (*.f64 phi1 (cos.f64 theta)))
(+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* -1/2 (* phi1 (sin theta))))))
(+.f64 (sin.f64 theta) (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 (sin.f64 theta) #s(literal -1/2 binary64))) (cos.f64 theta))))
(+ (sin theta) (* phi1 (+ (* -1 (cos theta)) (* phi1 (+ (* -1/2 (sin theta)) (* 1/6 (* phi1 (cos theta))))))))
(+.f64 (sin.f64 theta) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 theta) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/6 binary64) (*.f64 phi1 (cos.f64 theta))))) (cos.f64 theta))))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (- theta phi1))
(sin.f64 (-.f64 theta phi1))
(sin (+ theta (* -1 phi1)))
(sin.f64 (-.f64 theta phi1))
(sin (+ theta (* -1 phi1)))
(sin.f64 (-.f64 theta phi1))
(sin (+ theta (* -1 phi1)))
(sin.f64 (-.f64 theta phi1))
(sin (+ theta (* -1 phi1)))
(sin.f64 (-.f64 theta phi1))
(sin phi1)
(sin.f64 phi1)
(+ (sin phi1) (* theta (cos phi1)))
(+.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) theta))
(+ (sin phi1) (* theta (+ (cos phi1) (* -1/2 (* theta (sin phi1))))))
(+.f64 (sin.f64 phi1) (*.f64 theta (+.f64 (cos.f64 phi1) (*.f64 theta (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))))
(+ (sin phi1) (* theta (+ (cos phi1) (* theta (+ (* -1/2 (sin phi1)) (* -1/6 (* theta (cos phi1))))))))
(+.f64 (sin.f64 phi1) (*.f64 theta (+.f64 (cos.f64 phi1) (*.f64 theta (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 #s(literal -1/6 binary64) theta)))))))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (- phi1 (* -1 theta)))
(sin.f64 (+.f64 phi1 theta))
(sin (- phi1 (* -1 theta)))
(sin.f64 (+.f64 phi1 theta))
(sin (- phi1 (* -1 theta)))
(sin.f64 (+.f64 phi1 theta))
(sin (- phi1 (* -1 theta)))
(sin.f64 (+.f64 phi1 theta))
(sin theta)
(sin.f64 theta)
(+ (sin theta) (* phi1 (cos theta)))
(+.f64 (sin.f64 theta) (*.f64 phi1 (cos.f64 theta)))
(+ (sin theta) (* phi1 (+ (cos theta) (* -1/2 (* phi1 (sin theta))))))
(+.f64 (sin.f64 theta) (*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 phi1 (*.f64 (sin.f64 theta) #s(literal -1/2 binary64))))))
(+ (sin theta) (* phi1 (+ (cos theta) (* phi1 (+ (* -1/2 (sin theta)) (* -1/6 (* phi1 (cos theta))))))))
(+.f64 (sin.f64 theta) (*.f64 phi1 (+.f64 (cos.f64 theta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 theta) #s(literal -1/2 binary64)) (*.f64 phi1 (*.f64 (cos.f64 theta) #s(literal -1/6 binary64))))))))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (+ phi1 theta))
(sin.f64 (+.f64 phi1 theta))
(sin (- theta (* -1 phi1)))
(sin.f64 (+.f64 phi1 theta))
(sin (- theta (* -1 phi1)))
(sin.f64 (+.f64 phi1 theta))
(sin (- theta (* -1 phi1)))
(sin.f64 (+.f64 phi1 theta))
(sin (- theta (* -1 phi1)))
(sin.f64 (+.f64 phi1 theta))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1/2 (pow delta 2))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 delta (*.f64 delta #s(literal 1/24 binary64))))) (pow.f64 (cos.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 (*.f64 delta 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))))))) (pow.f64 (cos.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 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) (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 (*.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 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
#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/2 (* delta (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) delta))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* 1/12 (* (pow delta 2) (sin (* 2 phi1))))))
(*.f64 delta (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 delta delta)))))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (* (pow delta 2) (sin (* 2 phi1)))) (* 1/12 (sin (* 2 phi1)))))))
(*.f64 delta (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal -1/240 binary64) (*.f64 delta delta)) #s(literal 1/12 binary64))))))
(* delta (+ (* -1/2 (sin (* 2 phi1))) (* (pow delta 2) (+ (* 1/12 (sin (* 2 phi1))) (* (pow delta 2) (+ (* -1/240 (sin (* 2 phi1))) (* 1/10080 (* (pow delta 2) (sin (* 2 phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/12 binary64) (*.f64 delta delta)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (+.f64 #s(literal -1/240 binary64) (*.f64 #s(literal 1/10080 binary64) (*.f64 delta delta)))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1 (* phi1 (sin delta)))
(-.f64 #s(literal 0 binary64) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (+ (* -1 (sin delta)) (* 2/3 (* (pow phi1 2) (sin delta)))))
(*.f64 phi1 (*.f64 (sin.f64 delta) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 2/3 binary64) (*.f64 phi1 phi1)))))
(* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (* (pow phi1 2) (sin delta))) (* 2/3 (sin delta))))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -2/15 binary64) (*.f64 phi1 phi1)) #s(literal 2/3 binary64)))) (sin.f64 delta)))
(* phi1 (+ (* -1 (sin delta)) (* (pow phi1 2) (+ (* 2/3 (sin delta)) (* (pow phi1 2) (+ (* -2/15 (sin delta)) (* 4/315 (* (pow phi1 2) (sin delta)))))))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 2/3 binary64) (*.f64 phi1 phi1)))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) (+.f64 #s(literal -2/15 binary64) (*.f64 #s(literal 4/315 binary64) (*.f64 phi1 phi1))))))))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))
(* -1/2 (* (sin delta) (sin (* 2 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))

eval328.0ms (1.5%)

Compiler

Compiled 51657 to 3648 computations (92.9% saved)

prune406.0ms (1.8%)

Pruning

52 alts after pruning (51 fresh and 1 done)

PrunedKeptTotal
New1636241660
Fresh92736
Picked505
Done011
Total1650521702
Accuracy
100.0%
Counts
1702 → 52
Alt Table
Click to see full alt table
StatusAccuracyProgram
14.4%
(atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
12.2%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64)))))
30.1%
(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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
23.5%
(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 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)))))
99.9%
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
76.2%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 theta (cos.f64 phi1))) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) lambda1)
71.9%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 (+.f64 theta phi1))) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
74.8%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 (+.f64 theta phi1))) delta) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
72.4%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 theta)) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
71.3%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 theta phi1)) (sin.f64 phi1)) (sin.f64 delta)) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
85.1%
(+.f64 lambda1 (atan2.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta phi1)) (sin.f64 (+.f64 delta phi1))) (sin.f64 theta)) #s(literal 2 binary64)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
92.9%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 delta)) (*.f64 (sin.f64 theta) (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 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
85.9%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.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)))))
77.1%
(+.f64 lambda1 (atan2.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
76.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))) delta) delta)))) (cos.f64 phi1)) (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (cos.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))))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
90.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
82.2%
(+.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 phi1 #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))))))
92.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 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))))
82.3%
(+.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 delta (*.f64 (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/12 binary64) (*.f64 delta delta))))))))
82.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.f64 delta)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
88.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.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))))))
85.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (+.f64 (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1 binary64))))))
91.1%
(+.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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta (*.f64 phi1 #s(literal 2 binary64)))) (cos.f64 (+.f64 delta (*.f64 phi1 #s(literal 2 binary64))))) #s(literal -1/2 binary64)) #s(literal 2 binary64)))))
88.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
82.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 delta (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (cos.f64 theta) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) #s(literal 1/2 binary64)))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
77.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) #s(literal 1 binary64)))
70.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
78.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (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 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
76.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) theta) (cos.f64 phi1)) (cos.f64 delta)))
71.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
72.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64))) delta) delta))) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
77.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)))))
75.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
78.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 delta (sin.f64 phi1)))))))
68.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta theta) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
88.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta)))
77.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
87.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 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)) (cos.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))))))
85.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 (-.f64 (cos.f64 delta) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
86.9%
(+.f64 lambda1 (atan2.f64 (*.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 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
86.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)))
74.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) theta) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
69.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) theta) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
67.8%
(+.f64 lambda1 (atan2.f64 (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
73.1%
(+.f64 lambda1 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))) (sin.f64 theta))) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
75.0%
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
77.1%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
✓71.5%
lambda1
Compiler

Compiled 4157 to 1534 computations (63.1% saved)

regimes298.0ms (1.3%)

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

7 calls:

44.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))))))))
42.0ms
phi1
40.0ms
phi2
34.0ms
lambda1
34.0ms
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
Results
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)

regimes149.0ms (0.7%)

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

5 calls:

35.0ms
lambda1
29.0ms
phi1
25.0ms
phi2
21.0ms
theta
21.0ms
delta
Results
AccuracySegmentsBranch
92.9%1lambda1
92.9%1phi1
92.9%1phi2
92.9%1delta
92.9%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes157.0ms (0.7%)

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

5 calls:

43.0ms
phi1
38.0ms
phi2
24.0ms
delta
20.0ms
theta
20.0ms
lambda1
Results
AccuracySegmentsBranch
92.9%1phi1
92.9%1phi2
92.9%1lambda1
92.9%1delta
92.9%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes124.0ms (0.6%)

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

5 calls:

32.0ms
phi1
18.0ms
phi2
17.0ms
theta
16.0ms
lambda1
16.0ms
delta
Results
AccuracySegmentsBranch
90.7%1phi1
90.7%1phi2
90.7%1lambda1
90.7%1delta
90.7%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes121.0ms (0.5%)

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

5 calls:

33.0ms
phi1
28.0ms
phi2
19.0ms
lambda1
13.0ms
theta
13.0ms
delta
Results
AccuracySegmentsBranch
90.7%1lambda1
90.7%1delta
90.7%1phi2
90.7%1phi1
90.7%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes91.0ms (0.4%)

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

5 calls:

29.0ms
phi2
18.0ms
lambda1
13.0ms
phi1
12.0ms
delta
12.0ms
theta
Results
AccuracySegmentsBranch
88.0%1lambda1
88.0%1delta
90.1%2phi1
88.0%1phi2
88.0%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes69.0ms (0.3%)

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

4 calls:

26.0ms
delta
17.0ms
phi1
12.0ms
lambda1
10.0ms
phi2
Results
AccuracySegmentsBranch
88.0%1lambda1
88.0%1phi2
88.0%1delta
88.0%1phi1
Compiler

Compiled 24 to 20 computations (16.7% saved)

regimes96.0ms (0.4%)

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

5 calls:

42.0ms
phi1
27.0ms
phi2
8.0ms
theta
8.0ms
delta
8.0ms
lambda1
Results
AccuracySegmentsBranch
86.3%1phi1
86.3%1theta
86.3%1lambda1
86.3%1phi2
86.3%1delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes28.0ms (0.1%)

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

5 calls:

7.0ms
phi1
5.0ms
delta
5.0ms
theta
5.0ms
phi2
5.0ms
lambda1
Results
AccuracySegmentsBranch
77.1%1theta
77.1%1lambda1
77.1%1phi2
77.1%1phi1
77.1%1delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes26.0ms (0.1%)

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

5 calls:

10.0ms
delta
4.0ms
phi1
4.0ms
theta
4.0ms
phi2
3.0ms
lambda1
Results
AccuracySegmentsBranch
77.1%1phi2
77.1%1phi1
77.1%1delta
77.1%1theta
77.1%1lambda1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes22.0ms (0.1%)

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

5 calls:

10.0ms
delta
3.0ms
phi1
3.0ms
theta
3.0ms
phi2
3.0ms
lambda1
Results
AccuracySegmentsBranch
75.0%1phi2
75.0%1phi1
75.0%1delta
75.0%1theta
75.0%1lambda1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes7.0ms (0%)

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
lambda1
Outputs
lambda1
Calls

5 calls:

1.0ms
delta
1.0ms
phi2
1.0ms
theta
1.0ms
lambda1
1.0ms
phi1
Results
AccuracySegmentsBranch
71.5%1phi2
71.5%1lambda1
71.5%1phi1
71.5%1delta
71.5%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

bsearch82.0ms (0.4%)

Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
79.0ms
-3.758461332024035e+88
-1.4975114292046721e+84
Results
74.0ms128×0valid
Compiler

Compiled 398 to 294 computations (26.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 67.0ms
ival-cos: 31.0ms (46.3% of total)
ival-sin: 25.0ms (37.3% of total)
ival-mult: 5.0ms (7.5% of total)
ival-asin: 2.0ms (3% of total)
ival-add: 1.0ms (1.5% of total)
ival-atan2: 1.0ms (1.5% of total)
ival-sub: 1.0ms (1.5% of total)
const: 0.0ms (0% of total)
backward-pass: 0.0ms (0% of total)

simplify14.0ms (0.1%)

Algorithm
1×egg-herbie
Rules
58×*-commutative_binary64
56×+-commutative_binary64
26×sub-neg_binary64
18×neg-sub0_binary64
18×neg-mul-1_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
076243
1129243
2156243
3177243
4189243
5193243
6194243
Stop Event
1×saturated
Calls
Call 1
Inputs
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
(+.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 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 #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) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
(if (<=.f64 phi1 #s(literal -1400000000000000075696944097269332542836107081226720702598926879400807351251801292668928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (*.f64 (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)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(+.f64 lambda1 (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 delta (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1
Outputs
(+.f64 (atan2.f64 (*.f64 (sin.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 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (/.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (/.f64 #s(literal -2 binary64) (sin.f64 (*.f64 phi1 #s(literal 2 binary64))))))) lambda1)
(+.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 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.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) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.f64 delta) #s(literal 1/2 binary64))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) (+.f64 #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) (sin.f64 delta)) (sin.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 2 binary64))) (*.f64 (sin.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) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta))) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))))
(if (<=.f64 phi1 #s(literal -1400000000000000075696944097269332542836107081226720702598926879400807351251801292668928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (cos.f64 delta))))
(if (<=.f64 phi1 #s(literal -1400000000000000075696944097269332542836107081226720702598926879400807351251801292668928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 lambda1 (atan2.f64 (*.f64 (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)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 delta)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))) lambda1)))
(+.f64 lambda1 (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 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) delta) (+.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))))))
lambda1

soundness4.2s (18.7%)

Rules
7278×*-lowering-*.f32
7278×*-lowering-*.f64
6954×*-lowering-*.f32
6954×*-lowering-*.f64
4650×+-lowering-+.f64
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
064816483
1243915764
2544315525
0801415525
02559890
19489565
237669289
370329283
081149283
02232
14032
26931
39531
411831
518731
632931
747831
872231
9114531
10136531
11159431
12184131
13222831
14284531
15333231
16367031
17424231
18424431
19425731
20427731
21428531
0428531
056412
1171395
2599349
33851341
08887341
051439
1147379
2462364
32503364
08161364
034237
1110237
2325231
31670231
08415231
064513832
1237112997
2790812978
0814712978
056217721
1209216373
2746516352
0839516352
Stop Event
1×fuel
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×saturated
1×iter limit
1×node limit
1×iter limit
1×node limit
Compiler

Compiled 765 to 461 computations (39.7% saved)

preprocess136.0ms (0.6%)

Remove

(abs phi2)

Compiler

Compiled 1372 to 736 computations (46.4% saved)

end0.0ms (0%)

Profiling

Loading profile data...