Destination given bearing on a great circle

Time bar (total: 18.2s)

analyze1.3s (7.1%)

Memory
18.4MiB live, 1 324.6MiB allocated
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 35 to 25 computations (28.6% saved)

sample2.9s (15.9%)

Memory
45.7MiB live, 2 906.4MiB allocated
Samples
2.4s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 2.1s
ival-sin: 733.0ms (34.9% of total)
ival-cos: 624.0ms (29.7% of total)
ival-mult: 339.0ms (16.1% of total)
ival-asin: 165.0ms (7.9% of total)
ival-add: 95.0ms (4.5% of total)
ival-atan2: 75.0ms (3.6% of total)
ival-sub: 58.0ms (2.8% of total)
ival-true: 7.0ms (0.3% of total)
ival-assert: 4.0ms (0.2% of total)
Bogosity

preprocess272.0ms (1.5%)

Memory
15.2MiB live, 88.0MiB allocated
Algorithm
2×egg-herbie
Rules
1 618×distribute-rgt-in
1 602×distribute-lft-in
1 290×distribute-lft-neg-in
1 062×sub-neg
794×neg-mul-1
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0179710
1399705
2699703
31226701
42723701
54040701
64666701
75393701
85780701
95946701
106053701
116185701
126439701
136974701
147107701
157133701
167133701
177133701
02233
13933
26433
37933
49533
512333
617133
721733
830333
934433
1037833
1143033
1252133
1365533
1480833
15110333
16117533
17119733
18119933
19120233
20120433
0120432
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 (*.f64 (sin.f64 delta) (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))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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)))))))))
(- (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))) 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))) (+ (cos delta) (* (sin phi1) (sin (asin (- (* (sin delta) (* (cos phi1) (cos theta))) (* (cos delta) (sin phi1)))))))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 theta) (* (sin delta) (neg (cos phi1)))) (- (cos delta) (* (sin phi1) (sin (asin (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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))))))))))
(+ lambda1 (atan2 (* (sin theta) (* (sin delta) (neg (cos phi1)))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos 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))))))))))
(- lambda1 (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 delta) (* (cos phi1) (cos theta))) (* (cos delta) (sin phi1)))))))))
(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))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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 theta) (* (sin delta) (neg (cos phi1)))) (- (cos delta) (* (sin phi1) (sin (asin (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (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)))))))))))
(- (neg lambda1) (atan2 (* (sin theta) (* (sin delta) (neg (cos phi1)))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos 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)))))))))
(+ phi1 (atan2 (* (sin theta) (* (sin delta) (cos lambda1))) (- (cos delta) (* (sin lambda1) (sin (asin (+ (* (cos delta) (sin lambda1)) (* (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)))))))))
(+ (atan2 (* (sin theta) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))))))) 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))) (- (cos lambda1) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos lambda1)) (* (cos theta) (* (cos phi1) (sin 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))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (cos lambda1) (* (sin delta) (cos phi1))))))))))
(+ 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))) (- (cos delta) (* (sin phi2) (sin (asin (+ (* (cos delta) (sin phi2)) (* (sin delta) (* (cos theta) (cos phi2))))))))))
(+ 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))) (- (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 delta) (* (sin phi1) (cos theta))) (- (cos delta) (* (sin theta) (sin (asin (+ (* (sin delta) (* (cos phi1) (cos theta))) (* (sin theta) (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 theta) (* (cos phi1) (sin phi2))) (- (cos phi2) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos phi2)) (* (cos theta) (* (cos phi1) (sin 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 phi2) (* (sin delta) (cos phi1))) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (cos delta) (sin phi1)) (* (cos phi2) (* (sin delta) (cos phi1))))))))))
(+ 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))) (- (cos theta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos theta)) (* (sin theta) (* (cos phi1) (cos delta))))))))))
Symmetry

(abs phi2)

explain435.0ms (2.4%)

Memory
-22.7MiB live, 420.2MiB allocated
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
30-1(-1.745063943795271e+50 6.219976522998709e+72 4.756404910225962e-279 2.3124661546757675e-277 5.681067160625168e+74)(-.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-(cos.f64 theta)
00-0-theta
00-0-(sin.f64 theta)
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-(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
00-0-delta
00-0-(sin.f64 phi1)
00-0-(*.f64 (sin.f64 phi1) (cos.f64 delta))
00-0-lambda1
00-0-(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
00-0-(+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))
00-0-(*.f64 (sin.f64 theta) (sin.f64 delta))
00-0-phi1
00-0-(*.f64 (cos.f64 phi1) (sin.f64 delta))
00-0-(*.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-(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-(cos.f64 delta)
00-0-(asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
00-0-(cos.f64 phi1)
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
-.f64(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))cancellation11
Confusion
Predicted +Predicted -
+11
-0254
Precision
1.0
Recall
0.5
Confusion?
Predicted +Predicted MaybePredicted -
+110
-01253
Precision?
0.6666666666666666
Recall?
1.0
Freqs
test
numberfreq
0255
11
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
139.0ms512×0valid
Compiler

Compiled 474 to 96 computations (79.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 111.0ms
ival-sin: 42.0ms (37.9% of total)
ival-cos: 31.0ms (28% of total)
ival-mult: 18.0ms (16.2% of total)
ival-asin: 8.0ms (7.2% of total)
ival-add: 5.0ms (4.5% of total)
ival-atan2: 4.0ms (3.6% of total)
ival-sub: 2.0ms (1.8% of total)
ival-true: 1.0ms (0.9% of total)
ival-assert: 0.0ms (0% of total)

eval0.0ms (0%)

Memory
0.3MiB live, 0.3MiB allocated
Compiler

Compiled 5 to 5 computations (0% saved)

prune1.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated
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)))))))))
Compiler

Compiled 38 to 23 computations (39.5% saved)

simplify58.0ms (0.3%)

Memory
11.1MiB live, 48.7MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 4 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)))))))))
Rules
640×accelerator-lowering-fma.f32
640×accelerator-lowering-fma.f64
496×*-lowering-*.f32
496×*-lowering-*.f64
256×associate-*r*
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
022197
139197
264197
379197
495197
5123197
6171197
7217197
8303197
9344197
10378197
11430197
12521197
13655197
14808197
151103197
161175197
171197197
181199197
191202197
201204197
01204190
Stop Event
1×iter limit
1×saturated
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
(cos delta)
(* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
(sin phi1)
(sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))
(asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))
(+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))
(* (sin phi1) (cos delta))
(* (* (cos phi1) (sin delta)) (cos theta))
(* (cos phi1) (sin delta))
(cos theta)
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (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 (*.f64 (sin.f64 delta) (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 (*.f64 (sin.f64 delta) (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)

localize117.0ms (0.6%)

Memory
7.3MiB live, 85.8MiB allocated
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))
✓accuracy99.6%
(asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))
✓accuracy99.3%
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))
Samples
76.0ms256×0valid
Compiler

Compiled 199 to 25 computations (87.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 54.0ms
ival-sin: 21.0ms (38.9% of total)
ival-cos: 15.0ms (27.8% of total)
ival-mult: 9.0ms (16.7% of total)
ival-asin: 4.0ms (7.4% of total)
ival-add: 2.0ms (3.7% of total)
ival-atan2: 2.0ms (3.7% of total)
ival-sub: 1.0ms (1.9% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

series32.0ms (0.2%)

Memory
-2.6MiB live, 34.9MiB allocated
Counts
7 → 252
Calls
Call 1
Inputs
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))>
#<alt (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))>
#<alt (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))>
Outputs
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (pow (sin phi1) 2)>
#<alt (+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
#<alt (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))>
Calls

63 calls:

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

rewrite419.0ms (2.3%)

Memory
8.4MiB live, 436.6MiB allocated
Algorithm
1×batch-egg-rewrite
Rules
6 986×accelerator-lowering-fma.f32
6 986×accelerator-lowering-fma.f64
5 942×*-lowering-*.f32
5 942×*-lowering-*.f64
3 900×/-lowering-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
022125
1101125
2827125
08718120
Stop Event
1×iter limit
1×node limit
Counts
7 → 264
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(- (cos delta) (* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta)))))))
(asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))
(* (sin phi1) (sin (asin (+ (* (sin phi1) (cos delta)) (* (* (cos phi1) (sin delta)) (cos theta))))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(+.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (neg.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(fma.f64 (*.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (neg.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(neg.f64 (/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))))
(neg.f64 (/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(/.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (*.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (*.f64 (+.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (+.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 6 binary64))) (pow.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 4 binary64))) (pow.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 4 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))))) (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (+.f64 (*.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (*.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (*.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))) (+.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(*.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1))))))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(*.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (cos.f64 phi1) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1))) #s(literal -2 binary64))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (*.f64 (sin.f64 theta) (cos.f64 phi1)) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) (cos.f64 phi1)) #s(literal 1/2 binary64))
(+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))
(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 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 theta delta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64))) (+.f64 (*.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64)))) (+.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 theta delta)) #s(literal 2 binary64))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta))) #s(literal -1 binary64))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 theta delta))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 theta) (sin.f64 delta)))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 theta delta)))) #s(literal -1/2 binary64))
(+.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (neg.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (neg.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta)))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(+.f64 (+.f64 (cos.f64 delta) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(+.f64 (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(+.f64 (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (+.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(+.f64 (-.f64 (cos.f64 delta) (/.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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(-.f64 (+.f64 (cos.f64 delta) #s(literal 0 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 (cos.f64 delta) (*.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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (*.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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (neg.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (/.f64 #s(literal 1 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))))))) (neg.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (-.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 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (sin.f64 phi1) (+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (cos.f64 delta)))
(fma.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))) (cos.f64 delta))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (*.f64 (*.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 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta) (+.f64 (*.f64 (*.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 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64) (+.f64 (*.f64 (*.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 (+.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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal -1 binary64)) (sin.f64 phi1) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (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 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (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 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 theta)) (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (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 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (+.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (cos.f64 delta)))
(neg.f64 (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(neg.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(neg.f64 (/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(neg.f64 (/.f64 (+.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (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 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (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 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (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 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (*.f64 (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (*.f64 (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 9 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 6 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (cos.f64 delta) #s(literal 4 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 4 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 4 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (neg.f64 (+.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 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)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (+.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (*.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (+.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (*.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (-.f64 (-.f64 #s(literal 0 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)))
(/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (*.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (*.f64 (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) (+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (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 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(*.f64 #s(literal 1 binary64) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(*.f64 (+.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (neg.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (*.f64 (-.f64 #s(literal 0 binary64) (PI.f64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.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 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(-.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (/.f64 (PI.f64) #s(literal 2 binary64)))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (/.f64 (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(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 (-.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)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (neg.f64 (-.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (+.f64 (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (pow.f64 (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (*.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 (-.f64 (pow.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) #s(literal 3 binary64)) (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64))) (+.f64 (*.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64))))) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 #s(literal 0 binary64) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (-.f64 (*.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64))))) (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64))) (+.f64 (fabs.f64 (remainder.f64 (+.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (PI.f64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)) #s(literal 8 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (*.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (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 (/.f64 (*.f64 (PI.f64) (PI.f64)) #s(literal 4 binary64)) (pow.f64 (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(+.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (neg.f64 (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))))
(+.f64 (*.f64 (-.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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
(+.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(+.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(fma.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (*.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 (-.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 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(fma.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1) (*.f64 (-.f64 #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 (-.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 (cos.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 #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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))
(fma.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(fma.f64 (*.f64 (sin.f64 phi1) (+.f64 (sin.f64 (-.f64 phi1 delta)) (sin.f64 (+.f64 delta phi1)))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 delta) (*.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 (-.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 phi1) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (cos.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 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
(fma.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (cos.f64 phi1))) (sin.f64 delta) (*.f64 (-.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 #s(literal 0 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 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1))))
(/.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(/.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1)) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(/.f64 (neg.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (*.f64 (-.f64 #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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (-.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (+.f64 (*.f64 (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) (-.f64 (*.f64 (-.f64 #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 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (-.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))) (-.f64 (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
(/.f64 (-.f64 (*.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(*.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (sin.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) phi1)) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(*.f64 (-.f64 #s(literal 0 binary64) (-.f64 (cos.f64 (-.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) (cos.f64 (+.f64 phi1 (asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))) #s(literal -1/2 binary64))
(*.f64 (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(*.f64 (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(*.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 3 binary64))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (-.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(*.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))

simplify845.0ms (4.6%)

Memory
-21.2MiB live, 813.1MiB allocated
Algorithm
1×egg-herbie
Rules
18 372×accelerator-lowering-fma.f32
18 372×accelerator-lowering-fma.f64
5 632×*-lowering-*.f32
5 632×*-lowering-*.f64
5 026×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
02405237
18335126
229485083
353325038
475485038
084314804
Stop Event
1×iter limit
1×node limit
Counts
252 → 252
Calls
Call 1
Inputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(pow (sin phi1) 2)
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
Outputs
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 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 lambda1 (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) #s(literal 1 binary64)))
(+ 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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(*.f64 theta (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(*.f64 theta (+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 theta (*.f64 theta (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64))))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(*.f64 delta (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (*.f64 delta delta) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(*.f64 delta (+.f64 (*.f64 (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) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #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 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 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 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (sin.f64 delta) theta))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(*.f64 theta (*.f64 (sin.f64 delta) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(*.f64 theta (+.f64 (sin.f64 delta) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/5040 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 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 delta (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(*.f64 delta (*.f64 (sin.f64 theta) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (*.f64 delta delta) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.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 (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 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta))))))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (pow (sin phi1) 2))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (*.f64 delta (+.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (*.f64 (*.f64 delta #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))) (cos delta))) (* (cos theta) (sin delta)))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 #s(literal 2/3 binary64) phi1)) (cos.f64 delta))) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 theta theta) (*.f64 (cos.f64 phi1) (*.f64 (*.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 (+.f64 (cos.f64 delta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/720 binary64))))))) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(- (cos delta) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))
(-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (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 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(asin (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))
(* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) phi1) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64)))))))
(* phi1 (+ (* phi1 (+ (cos delta) (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/3 (* phi1 (cos delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 (cos.f64 delta)) #s(literal -1/3 binary64))))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(+ (* delta (* (cos phi1) (* (cos theta) (sin phi1)))) (pow (sin phi1) 2))
(*.f64 (sin.f64 phi1) (+.f64 (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) delta) (cos.f64 theta))))
(+ (* delta (+ (* -1/2 (* delta (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) delta)) (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(+ (* delta (+ (* delta (+ (* -1/2 (pow (sin phi1) 2)) (* -1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (sin phi1) 2))
(+.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (+.f64 (*.f64 delta (*.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (+.f64 (*.f64 delta (*.f64 delta #s(literal -1/6 binary64))) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))
(*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64))))))
(+ (* (sin phi1) (+ (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/720 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)))))

eval97.0ms (0.5%)

Memory
-1.7MiB live, 153.6MiB allocated
Compiler

Compiled 26 180 to 1 636 computations (93.8% saved)

prune118.0ms (0.6%)

Memory
-3.7MiB live, 169.0MiB allocated
Pruning

24 alts after pruning (24 fresh and 0 done)

PrunedKeptTotal
New49224516
Fresh000
Picked101
Done000
Total49324517
Accuracy
99.9%
Counts
517 → 24
Alt Table
Click to see full alt table
StatusAccuracyProgram
30.6%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
46.9%
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))))
99.5%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
99.8%
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
▶99.8%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))))
▶99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (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 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 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)))))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))))
▶99.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))))
96.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
93.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
86.1%
(+.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 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))))
96.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
85.5%
(+.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))))))
▶77.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.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 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
89.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
▶70.9%
lambda1
Compiler

Compiled 2 074 to 1 118 computations (46.1% saved)

simplify589.0ms (3.2%)

Memory
-18.4MiB live, 537.7MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))))
✓cost-diff128
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))
✓cost-diff128
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))))
✓cost-diff6400
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
✓cost-diff6592
(-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
✓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 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
✓cost-diff6272
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))
✓cost-diff0
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓cost-diff0
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))))
✓cost-diff0
(+.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) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))))
✓cost-diff6528
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
Rules
11 982×accelerator-lowering-fma.f32
11 982×accelerator-lowering-fma.f64
3 484×*-lowering-*.f32
3 484×*-lowering-*.f64
2 780×--lowering--.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
061869
1150858
2408855
31444837
43949824
57571824
08207808
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))
(- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)))
(cos delta)
(* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))
(* (sin delta) (* (cos phi1) (cos theta)))
(* (cos phi1) (cos theta))
(cos theta)
(sin phi1)
(* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
1/2
(* 1/2 (cos (* 2 phi1)))
(cos (* 2 phi1))
(* 2 phi1)
2
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(cos delta)
(* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))
(+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))
(* (sin delta) (cos theta))
(cos theta)
(* phi1 (cos delta))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(* (- 1 (pow (sin phi1) 2)) (cos delta))
(- 1 (pow (sin phi1) 2))
1
(pow (sin phi1) 2)
(sin phi1)
2
(cos delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))
(* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2)))
(- 0 (sin phi1))
0
(sin phi1)
(- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
1/2
(* 1/2 (cos (* 2 delta)))
(cos (* 2 delta))
(* 2 delta)
2
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* 1/2 (cos (* 2 phi1)))
(cos (* 2 phi1))
(* 2 phi1)
(pow (* (sin delta) (* (cos phi1) (cos theta))) 2)
(* (sin delta) (* (cos phi1) (cos theta)))
(* (cos phi1) (cos theta))
(cos theta)
(/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
1
(- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta))))
(* (cos delta) (sin phi1))
(cos delta)
Outputs
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(* (sin theta) (sin delta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin theta)
(sin.f64 theta)
theta
(sin delta)
(sin.f64 delta)
delta
(cos phi1)
(cos.f64 phi1)
phi1
(- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos 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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1)))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))
(cos delta)
(cos.f64 delta)
(* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(* (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)
(sin phi1)
(sin.f64 phi1)
(* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))
(*.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)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))))
(* (* (sin theta) (sin delta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(* (sin theta) (sin delta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin theta)
(sin.f64 theta)
theta
(sin delta)
(sin.f64 delta)
delta
(cos phi1)
(cos.f64 phi1)
phi1
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta))))
(cos delta)
(cos.f64 delta)
(* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))
(*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta))))
(+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))
(+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(* (- 1 (pow (sin phi1) 2)) (cos delta))
(*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(- 1 (pow (sin phi1) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(pow (sin phi1) 2)
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(sin phi1)
(sin.f64 phi1)
2
#s(literal 2 binary64)
(cos delta)
(cos.f64 delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))
(* (cos phi1) (* (sin delta) (cos theta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
lambda1
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (cos.f64 delta) (/.f64 (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)) (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (-.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)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (+.f64 (cos.f64 delta) (/.f64 (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)) (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))
(* (* (sin theta) (sin delta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(* (sin theta) (sin delta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(sin theta)
(sin.f64 theta)
theta
(sin delta)
(sin.f64 delta)
delta
(cos phi1)
(cos.f64 phi1)
phi1
(+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))
(+.f64 (cos.f64 delta) (/.f64 (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)) (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64))))) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))
(* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2)))
(*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)) (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))
(- 0 (sin phi1))
(-.f64 #s(literal 0 binary64) (sin.f64 phi1))
0
#s(literal 0 binary64)
(sin phi1)
(sin.f64 phi1)
(- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))
(-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))
1/2
#s(literal 1/2 binary64)
(* 1/2 (cos (* 2 delta)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))
(cos (* 2 delta))
(cos.f64 (*.f64 delta #s(literal 2 binary64)))
(* 2 delta)
(*.f64 delta #s(literal 2 binary64))
2
#s(literal 2 binary64)
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(* 1/2 (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))
(pow (* (sin delta) (* (cos phi1) (cos theta))) 2)
(pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))
(* (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)
(/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))
(/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
1
#s(literal 1 binary64)
(- (* (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))
(cos delta)
(cos.f64 delta)

localize463.0ms (2.5%)

Memory
46.3MiB live, 711.7MiB allocated
Localize:

Found 16 expressions of interest:

NewMetricScoreProgram
✓accuracy99.4%
(pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))
✓accuracy99.3%
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
✓accuracy99.2%
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))
✓accuracy75.7%
(-.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 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
✓accuracy99.6%
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
✓accuracy99.3%
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
✓accuracy99.8%
(*.f64 phi1 (cos.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (cos.f64 theta))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.6%
(*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))
✓accuracy99.6%
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
✓accuracy99.3%
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))
✓accuracy75.7%
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
Samples
106.0ms76×1valid
93.0ms133×0valid
93.0ms47×2valid
Compiler

Compiled 873 to 64 computations (92.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 234.0ms
ival-cos: 68.0ms (29.1% of total)
ival-mult: 58.0ms (24.8% of total)
ival-sin: 36.0ms (15.4% of total)
ival-atan2: 18.0ms (7.7% of total)
ival-sub: 15.0ms (6.4% of total)
adjust: 15.0ms (6.4% of total)
ival-add: 13.0ms (5.6% of total)
ival-pow2: 7.0ms (3% of total)
ival-div: 3.0ms (1.3% of total)
exact: 1.0ms (0.4% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

series199.0ms (1.1%)

Memory
-12.9MiB live, 183.0MiB allocated
Counts
26 → 840
Calls
Call 1
Inputs
#<alt (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))>
#<alt (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))>
#<alt (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2)))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* (sin delta) (* (cos phi1) (cos theta)))>
#<alt (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (* (sin delta) (cos theta))>
#<alt (* phi1 (cos delta))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (pow (sin phi1) 2)>
#<alt (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (pow (* (sin delta) (* (cos phi1) (cos theta))) 2)>
Outputs
#<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 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (- 1 (pow phi1 2))>
#<alt (- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))>
#<alt (* -1 (* (pow phi1 2) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))>
#<alt (- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))>
#<alt (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 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* -1/2 (* delta (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (+ 1 (* delta (- (* delta (+ (* -1/2 (- 1 (pow (sin phi1) 2))) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (- (* -1 (/ (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta))))))))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ 1 (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1 (/ (* delta (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (sin phi1)))))>
#<alt (+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1/2))))))>
#<alt (+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (+ (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* 1/6 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))))))) 1/2))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))>
#<alt (+ (cos delta) (+ (* -1 (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))>
#<alt (+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))>
#<alt (+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* -1 (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* phi1 (+ (* -1 (* (pow phi1 2) (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))>
#<alt (* phi1 (+ (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))>
#<alt (* phi1 (+ (* (pow phi1 2) (+ (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/6 (- (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* 1/5040 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* 1/120 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta)))))))) (* -2/45 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1))))))>
#<alt (+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))>
#<alt (+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))>
#<alt (+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -2/45 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))>
#<alt (+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))>
#<alt (+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))))>
#<alt (+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* -1 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (* 1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/3 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/2 (cos (* 2 phi1))))>
#<alt (- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow delta 2) (+ (* -2/45 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (* 1/2 (cos (* 2 phi1))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))>
#<alt (* (pow phi1 2) (+ 1/2 (+ (* -1/3 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 1/2 (cos (* 2 delta))))))>
#<alt (* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 2/45 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))))))))>
#<alt (* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta))))))))))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (- 1/2 (* 1/2 (cos (* 2 phi1))))>
#<alt (* delta (* (cos phi1) (cos theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))>
#<alt (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))>
#<alt (* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos theta) (sin delta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))>
#<alt (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))>
#<alt (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (sin delta))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))>
#<alt (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))>
#<alt (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* (cos phi1) (* (cos theta) (sin delta)))>
#<alt (* delta (* (cos phi1) (* (cos theta) (sin phi1))))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))>
#<alt (* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* delta (cos theta))>
#<alt (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt phi1>
#<alt (+ phi1 (* -1/2 (* (pow delta 2) phi1)))>
#<alt (+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))>
#<alt (+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt (* phi1 (cos delta))>
#<alt 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (- 1 (pow (sin phi1) 2))>
#<alt (pow phi1 2)>
#<alt (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))>
#<alt (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (pow (sin phi1) 2)>
#<alt (* 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 (* 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 (* (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>
#<alt (+ 1 (* -1 (pow delta 2)))>
#<alt (+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))>
#<alt (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (+ 1/2 (* 1/2 (cos (* 2 delta))))>
#<alt (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))>
#<alt (* (pow delta 2) (+ (* -1/3 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))>
#<alt (* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* 2/45 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))>
#<alt (* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow delta 2) (+ (* -1/315 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos theta) 2) (pow (sin delta) 2))>
#<alt (+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (pow (sin delta) 2))>
#<alt (+ (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))>
#<alt (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))>
#<alt (+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
#<alt (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))>
Calls

210 calls:

TimeVariablePointExpression
74.0ms
delta
@0
(+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))
11.0ms
delta
@-inf
(- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))
9.0ms
theta
@-inf
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
5.0ms
phi1
@0
(- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
4.0ms
phi1
@inf
(+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))

rewrite674.0ms (3.7%)

Memory
3.6MiB live, 640.4MiB allocated
Algorithm
1×batch-egg-rewrite
Rules
6 486×*-lowering-*.f32
6 486×*-lowering-*.f64
4 508×accelerator-lowering-fma.f32
4 508×accelerator-lowering-fma.f64
2 600×/-lowering-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
061506
1380396
23437396
09785386
Stop Event
1×iter limit
1×node limit
Counts
26 → 544
Calls
Call 1
Inputs
(- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta)))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (- (cos delta) (* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))) (* (- 1/2 (* 1/2 (cos (* 2 phi1)))) (cos delta))))
(* (* (sin theta) (sin delta)) (cos phi1))
(- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta)))))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- (cos delta) (* phi1 (+ (* (sin delta) (cos theta)) (* phi1 (cos delta))))))
(- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (- 1 (pow (sin phi1) 2)) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))
(* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2)))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (+ (* (* (- 0 (sin phi1)) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (pow (* (sin delta) (* (cos phi1) (cos theta))) 2))) (/ 1 (- (* (cos delta) (sin phi1)) (* (sin delta) (* (cos phi1) (cos theta)))))) (cos delta))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* (sin delta) (* (cos phi1) (cos theta)))
(* (* (sin delta) (* (cos phi1) (cos theta))) (sin phi1))
(* (sin theta) (sin delta))
(* (sin delta) (cos theta))
(* phi1 (cos delta))
(- 1 (pow (sin phi1) 2))
(pow (sin phi1) 2)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(pow (* (sin delta) (* (cos phi1) (cos theta))) 2)
Outputs
(+.f64 (cos.f64 delta) (neg.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 (cos.f64 delta) (+.f64 (*.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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (neg.f64 (cos.f64 delta)))))
(+.f64 (cos.f64 delta) (-.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.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))) (neg.f64 (cos.f64 delta))))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (neg.f64 (cos.f64 delta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(-.f64 (cos.f64 delta) (-.f64 (*.f64 (sin.f64 delta) (*.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))) (neg.f64 (cos.f64 delta)))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(-.f64 (/.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(fma.f64 (cos.f64 delta) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (neg.f64 (cos.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(fma.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.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))) (neg.f64 (cos.f64 delta))))
(fma.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(fma.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 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))) (neg.f64 (cos.f64 delta))))
(fma.f64 (neg.f64 (cos.f64 delta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (*.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.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))) (neg.f64 (cos.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.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))) (neg.f64 (cos.f64 delta)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) (neg.f64 (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 (pow.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(*.f64 (-.f64 (pow.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) lambda1)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(+.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1)))
(+.f64 (*.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))
(-.f64 (/.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))) (/.f64 (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (/.f64 (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64)) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) phi1))) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1)))
(fma.f64 phi1 (neg.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (cos.f64 delta))
(fma.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1) (cos.f64 delta))
(fma.f64 #s(literal -1 binary64) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) phi1) (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (cos.f64 delta))
(fma.f64 (neg.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) phi1 (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))) (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) 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) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.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 (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 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))) (/.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (sin.f64 delta) (neg.f64 (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (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 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sin.f64 phi1) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 delta)) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (neg.f64 (*.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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (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 phi1 #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (*.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (neg.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.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 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 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.f64 #s(literal 1 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 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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (sin.f64 phi1)) (*.f64 (+.f64 #s(literal 1 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 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) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (sin.f64 phi1)))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (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 #s(literal 1 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 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.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)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (sin.f64 phi1)) (*.f64 (+.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)))) (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.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)))) (sin.f64 phi1)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 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 #s(literal 1 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 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 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.f64 #s(literal 1 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 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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (cos.f64 delta)) (sin.f64 phi1)) (*.f64 (+.f64 #s(literal 1 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 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) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (sin.f64 phi1)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 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 #s(literal 1 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 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.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)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (cos.f64 delta)) (sin.f64 phi1)) (*.f64 (+.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)))) (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (*.f64 (+.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)))) (sin.f64 phi1)))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.f64 #s(literal 1 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 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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 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 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.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))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.f64 #s(literal 1 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 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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (cos.f64 delta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.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))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (cos.f64 delta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))))) (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.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))))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))) (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (*.f64 (sin.f64 phi1) (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (+.f64 (*.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (+.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))))) (*.f64 (sin.f64 phi1) (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (cos.f64 delta)))) (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (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 phi1 #s(literal 2 binary64)))))))))
(+.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 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 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)
(-.f64 (/.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))))
(/.f64 (neg.f64 (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64))) (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))))
(pow.f64 (/.f64 (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1) (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))))
(*.f64 (-.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) 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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))
(+.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))
(-.f64 (/.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))))
(fma.f64 #s(literal 1 binary64) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(fma.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) (cos.f64 delta))
(fma.f64 (-.f64 (*.f64 (+.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 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (/.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (cos.f64 delta))
(fma.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (cos.f64 delta))
(fma.f64 (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 delta))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (cos.f64 delta))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 3 binary64)))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))) (cos.f64 delta))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)) (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))))
(/.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)))
(/.f64 (neg.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))) (neg.f64 (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64))) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta)) (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))) #s(literal -1 binary64))
(*.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (*.f64 (cos.f64 delta) (-.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(*.f64 (-.f64 (pow.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (-.f64 (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))) (cos.f64 delta))))
(+.f64 (*.f64 (-.f64 #s(literal 0 binary64) (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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))
(+.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) #s(literal 0 binary64)) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(+.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(+.f64 (*.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(fma.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))
(fma.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (*.f64 (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))))
(fma.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) #s(literal 0 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(neg.f64 (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(neg.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (sin.f64 phi1)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 (*.f64 (+.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 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(/.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64)))) (*.f64 (sin.f64 phi1) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))))
(/.f64 (*.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64)))) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64))) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64))) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))) (sin.f64 phi1)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64))) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (sin.f64 phi1)))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64)))) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64)))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))
(/.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))) (sin.f64 phi1))
(/.f64 (*.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (+.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) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #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 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) (sin.f64 phi1))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 6 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 4 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) #s(literal 1 binary64)))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))) (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 binary64)))
(*.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))))) #s(literal 1 binary64))
(+.f64 (*.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)) (*.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) (cos.f64 (*.f64 delta #s(literal 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) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.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)))
(+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 delta #s(literal 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) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (*.f64 (*.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 delta #s(literal 2 binary64)))))))
(exp.f64 (*.f64 (log.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1))) #s(literal 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))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 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 delta #s(literal 2 binary64))))) (*.f64 (*.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 delta #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))) #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) (cos.f64 (*.f64 delta #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))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (*.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)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 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 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 delta #s(literal 2 binary64))))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) (*.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #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 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64)))))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) (*.f64 (+.f64 #s(literal 1/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 delta #s(literal 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/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #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/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 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/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))
(pow.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) #s(literal 2 binary64))
(*.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (sin.f64 phi1))))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 delta) (*.f64 (cos.f64 delta) (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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))
(*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 delta) (sin.f64 phi1)))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (cos.f64 delta)) (sin.f64 phi1))
(*.f64 (*.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (sin.f64 phi1)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1)))))))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) lambda1)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (+.f64 (cos.f64 delta) (neg.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 delta) (sin.f64 phi1))))))))))
(+.f64 #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 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 0 binary64))
(+.f64 #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 (*.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 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))) #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/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 0 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 binary64) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 0 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 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 0 binary64))
(fma.f64 (pow.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) #s(literal 1 binary64)) (sin.f64 phi1) #s(literal 0 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 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))) #s(literal 0 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (*.f64 #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 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) #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))) #s(literal 0 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) #s(literal -1 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 (pow.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) #s(literal 1 binary64)) (sin.f64 phi1))
(exp.f64 (log.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(/.f64 (*.f64 (cos.f64 phi1) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 delta) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (sin.f64 delta)) #s(literal 2 binary64))
(pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (cos.f64 theta))
(*.f64 (sqrt.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (sqrt.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 1 binary64)) (pow.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) #s(literal 1 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 1 binary64)))
(*.f64 (exp.f64 (log.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (exp.f64 (log.f64 (sin.f64 delta))))
(*.f64 (exp.f64 (log.f64 (sin.f64 delta))) (exp.f64 (log.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)))))
(*.f64 (exp.f64 (log.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)))) (exp.f64 (log.f64 (cos.f64 theta))))
(exp.f64 (log.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (cos.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(*.f64 (sin.f64 theta) (sin.f64 delta))
(*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))))
(/.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(*.f64 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 delta) phi1)
(*.f64 phi1 (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 1 binary64) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(+.f64 (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) #s(literal 1 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 phi1)) #s(literal 2 binary64)))
(-.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))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.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))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (+.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))))))
(fma.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 1 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))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.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)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.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)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (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 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) (neg.f64 (+.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))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/4 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.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)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)))) #s(literal -1 binary64))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 0 binary64))
(+.f64 #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 (*.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 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 phi1))) #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/8 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi1) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 0 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 binary64) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 0 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 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 0 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (sin.f64 phi1) #s(literal 0 binary64))
(fma.f64 (pow.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)) #s(literal 0 binary64))
(fma.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) #s(literal 1 binary64)) (sin.f64 phi1) #s(literal 0 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 6 binary64)) #s(literal 0 binary64)) (+.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 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))) #s(literal 0 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 6 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (*.f64 #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 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) #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))) #s(literal 0 binary64)))
(/.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (sin.f64 phi1) #s(literal 4 binary64))) (+.f64 #s(literal -1/2 binary64) (neg.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) #s(literal 2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64))))))))) #s(literal -1 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi1))
(*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) (sin.f64 phi1))
(*.f64 (pow.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (sin.f64 phi1)) #s(literal 1 binary64)) (sin.f64 phi1))
(exp.f64 (log.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))) #s(literal 1 binary64))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 phi1))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (sin.f64 delta)) (cos.f64 theta))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (cos.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (cos.f64 delta)) #s(literal 2 binary64)))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 delta #s(literal 2 binary64))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))
(/.f64 (+.f64 (cos.f64 (*.f64 delta #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))) #s(literal 1/4 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (cos.f64 delta) #s(literal 2 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64))))))))) #s(literal -1 binary64))
(*.f64 (cos.f64 delta) (cos.f64 delta))
(*.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 delta #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))))
(*.f64 (+.f64 (cos.f64 (*.f64 delta #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))) #s(literal 1 binary64)))
(exp.f64 (+.f64 (*.f64 (log.f64 (sin.f64 delta)) #s(literal 2 binary64)) (*.f64 (log.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))))
(exp.f64 (+.f64 (*.f64 (log.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)) (*.f64 (log.f64 (sin.f64 delta)) #s(literal 2 binary64))))
(pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) #s(literal 2 binary64))
(pow.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))) #s(literal 1 binary64))
(pow.f64 (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (sin.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (sin.f64 delta) (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 1 binary64)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))))
(*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))))
(*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta))))) (+.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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) (-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (pow.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))) #s(literal 1 binary64)))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))) (*.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 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 delta))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (cos.f64 theta))
(*.f64 (pow.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64)))))) #s(literal 1 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) theta)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (sin.f64 delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 1 binary64)) (sin.f64 delta))
(*.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))) (*.f64 (sin.f64 delta) (cos.f64 phi1))) #s(literal 1 binary64)) (cos.f64 theta))

simplify684.0ms (3.7%)

Memory
-6.8MiB live, 918.8MiB allocated
Algorithm
1×egg-herbie
Rules
9 718×accelerator-lowering-fma.f32
9 718×accelerator-lowering-fma.f64
6 108×*-lowering-*.f32
6 108×*-lowering-*.f64
6 016×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
083422661
1292021743
2704921712
0809820789
Stop Event
1×iter limit
1×node limit
Counts
840 → 840
Calls
Call 1
Inputs
(+ 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))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(- 1 (pow phi1 2))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(* -1 (* (pow phi1 2) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(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 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- 1 (pow (sin phi1) 2))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* -1/2 (* delta (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (+ 1 (* delta (- (* delta (+ (* -1/2 (- 1 (pow (sin phi1) 2))) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (- (* -1 (/ (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta))))))))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ 1 (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1 (/ (* delta (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (sin phi1)))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1/2))))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (+ (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* 1/6 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))))))) 1/2))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
(+ (cos delta) (+ (* -1 (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
(+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))
(+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* -1 (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* phi1 (+ (* -1 (* (pow phi1 2) (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(* phi1 (+ (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(* phi1 (+ (* (pow phi1 2) (+ (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/6 (- (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* 1/5040 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* 1/120 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta)))))))) (* -2/45 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -2/45 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* -1 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/3 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/2 (cos (* 2 phi1))))
(- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow delta 2) (+ (* -2/45 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (* 1/2 (cos (* 2 phi1))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))
(* (pow phi1 2) (+ 1/2 (+ (* -1/3 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 1/2 (cos (* 2 delta))))))
(* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 2/45 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))))))))
(* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta))))))))))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(* delta (* (cos phi1) (cos theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos theta) (sin delta))
(+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (sin delta))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* 1/120 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1)))))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* delta (cos theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(sin delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
phi1
(+ phi1 (* -1/2 (* (pow delta 2) phi1)))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
(* phi1 (cos delta))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(- 1 (pow (sin phi1) 2))
(pow phi1 2)
(* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))
(* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(pow (sin phi1) 2)
(* 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))))
(* 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))))
(* (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
(+ 1 (* -1 (pow delta 2)))
(+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))
(* (pow delta 2) (+ (* -1/3 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* 2/45 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow delta 2) (+ (* -1/315 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos theta) 2) (pow (sin delta) 2))
(+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (pow (sin delta) 2))
(+ (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
Outputs
(+ 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))
(+ 1/2 (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/2 (cos (* 2 phi1)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 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)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 delta (-.f64 (*.f64 delta (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))))
(+ 1/2 (+ (* 1/2 (cos (* 2 phi1))) (* delta (- (* delta (- (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (+ 1/2 (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(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 (cos.f64 theta) (sin.f64 delta)) (*.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 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (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 phi1) (sin.f64 delta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (+ (cos delta) (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1)))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (+.f64 (cos.f64 delta) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (sin delta) (sin phi1)))))
(-.f64 (-.f64 (+.f64 (cos.f64 delta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 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 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta)) #s(literal -1/24 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* (cos delta) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (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)))
(- 1 (pow phi1 2))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(- (+ 1 (* -1 (* delta (* phi1 (cos theta))))) (pow phi1 2))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 delta (*.f64 phi1 (cos.f64 theta)))) (*.f64 phi1 phi1))
(- (+ 1 (* delta (- (* -1 (* delta (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 delta (-.f64 (*.f64 delta (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))) (*.f64 phi1 (cos.f64 theta)))) (*.f64 phi1 phi1)))
(- (+ 1 (* delta (- (* delta (- (* 1/6 (* delta (* phi1 (cos theta)))) (+ 1/2 (* -1/2 (pow phi1 2))))) (* phi1 (cos theta))))) (pow phi1 2))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 delta (-.f64 (*.f64 delta (+.f64 (+.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 delta (*.f64 phi1 (cos.f64 theta)))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 phi1)))) (*.f64 phi1 (cos.f64 theta)))) (*.f64 phi1 phi1)))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(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 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(* -1 (* (pow phi1 2) (cos delta)))
(*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (-.f64 (/.f64 (cos.f64 delta) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1) (cos.f64 delta)))
(* (pow phi1 2) (- (/ (cos delta) (pow phi1 2)) (+ (cos delta) (/ (* (cos theta) (sin delta)) phi1))))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (-.f64 (/.f64 (cos.f64 delta) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) phi1) (cos.f64 delta)))
(* -1 (* (pow phi1 2) (cos delta)))
(*.f64 (cos.f64 delta) (-.f64 #s(literal 0 binary64) (*.f64 phi1 phi1)))
(* (pow phi1 2) (- (* -1 (/ (* (cos theta) (sin delta)) phi1)) (cos delta)))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (/.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(* (pow phi1 2) (- (* -1 (/ (- (* -1 (/ (cos delta) phi1)) (* -1 (* (cos theta) (sin delta)))) phi1)) (cos delta)))
(*.f64 (*.f64 phi1 phi1) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (/.f64 (cos.f64 delta) phi1)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta)))
(- (cos delta) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))
(- (+ (cos delta) (* 1/2 (* phi1 (* (pow theta 2) (sin delta))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* -1/24 (* phi1 (* (pow theta 2) (sin delta)))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (cos.f64 delta) (-.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/24 binary64) phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 delta))))) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))
(- (+ (cos delta) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))) (* -1/2 (* phi1 (sin delta)))))) (* phi1 (+ (sin delta) (* phi1 (cos delta)))))
(+.f64 (cos.f64 delta) (-.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal 1/720 binary64) phi1) (*.f64 (sin.f64 delta) (*.f64 theta theta))) (*.f64 #s(literal -1/24 binary64) (*.f64 phi1 (sin.f64 delta))))) (*.f64 #s(literal 1/2 binary64) (*.f64 phi1 (sin.f64 delta))))) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta))))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (+ (* phi1 (* (cos theta) (sin delta))) (* (pow phi1 2) (cos delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (+.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)) (*.f64 (cos.f64 delta) (*.f64 phi1 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (+ (* phi1 (cos delta)) (* (cos theta) (sin delta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta))))))
(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 (cos.f64 theta) (sin.f64 delta)) (*.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 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- (+ 1 (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) delta)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* -1/2 (* delta (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (+ 1 (* delta (- (* delta (+ (* -1/2 (- 1 (pow (sin phi1) 2))) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1)))))) (pow (sin phi1) 2))
(+.f64 (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1))) (*.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (- 1 (pow (sin phi1) 2)))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (+ (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta)) #s(literal -1/24 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (- 1 (pow (sin phi1) 2))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (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)))
(* 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)))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (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)))
(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))) (* -1 (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 phi1 (cos.f64 delta)))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (- (* -1 (/ (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (cos theta) (sin delta)))) (+ (* -1 (/ (pow (cos delta) 2) (* (cos theta) (sin delta)))) (* -1/2 (* (cos theta) (sin delta))))))))))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 (-.f64 (/.f64 (-.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (cos.f64 theta) (sin.f64 delta))) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (/.f64 (pow.f64 (cos.f64 delta) #s(literal 2 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 #s(literal 0 binary64) phi1)) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ 1 (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1 (/ (* delta (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (sin phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (/.f64 (*.f64 delta (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))) (sin.f64 phi1))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) 1/2))))))
(+.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (*.f64 delta (-.f64 (*.f64 delta (-.f64 #s(literal -1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (sin.f64 phi1)))))
(+ 1 (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* delta (- (+ (* -1 (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* delta (+ (* -1 (/ (* (cos phi1) (* (cos theta) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (pow (sin phi1) 2))) (+ (* -1/2 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (sin phi1))) (+ (* -1/2 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))) (* 1/6 (/ (* (cos phi1) (* (cos theta) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (sin phi1))))))) 1/2))))))
(+.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 delta (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) #s(literal -1/3 binary64)) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (sin.f64 phi1)))) (-.f64 #s(literal -1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (-.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (sin.f64 phi1)))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(+ (cos delta) (+ (* -1 (* (pow theta 2) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))
(-.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))) (*.f64 (*.f64 theta theta) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))
(+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))))))
(+.f64 (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))) (*.f64 (*.f64 theta theta) (-.f64 (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))) (-.f64 #s(literal 0 binary64) (*.f64 theta theta))) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))))
(+ (cos delta) (+ (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (* (pow theta 2) (+ (* -1 (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))))) (* (pow theta 2) (+ (* -1 (* (pow theta 2) (- (* 2/45 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* 1/720 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))))))))) (* -1 (- (* -1/3 (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))) (+ (* -1/24 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (- (/ (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta)))) (* 1/2 (/ (* (cos phi1) (* (sin delta) (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (pow (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))) 2)))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (sin delta))))))))))))))
(+.f64 (cos.f64 delta) (-.f64 (*.f64 (*.f64 theta theta) (-.f64 (*.f64 (*.f64 theta theta) (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))) (/.f64 (*.f64 #s(literal 1/720 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) (-.f64 #s(literal 0 binary64) (*.f64 theta theta))) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))) (+.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))) (*.f64 (sin.f64 phi1) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))
(-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(* phi1 (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 phi1 (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))
(* phi1 (+ (* -1 (* (pow phi1 2) (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(*.f64 phi1 (+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (-.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))
(* phi1 (+ (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(*.f64 phi1 (+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (-.f64 (-.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 (+.f64 #s(literal -1/12 binary64) (*.f64 #s(literal -1/6 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/120 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))))))))
(* phi1 (+ (* (pow phi1 2) (+ (* -1 (- (+ 1/2 (+ (* 1/6 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/2 (cos (* 2 delta))))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* (pow phi1 2) (+ (* -1 (* (pow phi1 2) (- (+ (* -1/6 (- (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (+ (* 1/5040 (* (pow (cos theta) 2) (pow (sin delta) 2))) (+ (* 1/120 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta)))))))) (* -2/45 (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* -1 (- (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (+ (* -1/6 (- (+ 1/2 (* 1/2 (cos (* 2 delta)))) (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* -1/120 (* (pow (cos theta) 2) (pow (sin delta) 2))))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))))) (* (pow (cos theta) 2) (pow (sin delta) 2))))
(*.f64 phi1 (+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (+.f64 (-.f64 #s(literal -1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (*.f64 phi1 phi1) (-.f64 (-.f64 #s(literal 0 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/5040 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/240 binary64) (*.f64 #s(literal 1/120 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) #s(literal 2/45 binary64)))) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 #s(literal -1/3 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) #s(literal 2/45 binary64)))))) (+.f64 (+.f64 (+.f64 #s(literal -1/12 binary64) (*.f64 #s(literal -1/6 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (*.f64 #s(literal -1/120 binary64) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (*.f64 #s(literal -1/3 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))))))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1))))))
(*.f64 (sin.f64 phi1) (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))))
(-.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (*.f64 (*.f64 (*.f64 delta delta) (sin.f64 phi1)) (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))
(+.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (*.f64 (*.f64 delta delta) (-.f64 (*.f64 (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (*.f64 (*.f64 delta delta) (sin.f64 phi1)) (*.f64 #s(literal 1/3 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))))
(+ (* -1 (* (sin phi1) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))) (* (pow delta 2) (+ (* -1 (* (sin phi1) (- (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* -1 (* (pow delta 2) (* (sin phi1) (- (* -2/45 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))))))))
(+.f64 (*.f64 (sin.f64 phi1) (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (*.f64 (*.f64 delta delta) (-.f64 (*.f64 (*.f64 delta delta) (-.f64 (*.f64 (*.f64 #s(literal 1/3 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (*.f64 (*.f64 delta delta) (sin.f64 phi1)) (*.f64 #s(literal -2/45 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))) (*.f64 (sin.f64 phi1) (-.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1)))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))
(-.f64 (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (sin.f64 phi1))) (*.f64 (*.f64 (*.f64 theta theta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))))))
(-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/3 binary64) (*.f64 theta theta))))) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(+ (* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (pow (sin delta) 2))))) (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1))))) (* 1/3 (* (pow (cos phi1) 2) (* (pow (sin delta) 2) (sin phi1)))))))))
(-.f64 (*.f64 (*.f64 theta theta) (-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (*.f64 theta theta))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))))) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(* -1 (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- (+ 1/2 (* -1 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* 1/3 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1))))))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/3 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(- (+ 1/2 (* (pow delta 2) (+ (* -1 (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow delta 2) (+ (* -2/45 (* (pow delta 2) (- 1/2 (* 1/2 (cos (* 2 phi1)))))) (* 1/3 (- 1/2 (* 1/2 (cos (* 2 phi1)))))))))) (* 1/2 (cos (* 2 phi1))))
(+.f64 (*.f64 (*.f64 delta delta) (+.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (*.f64 (*.f64 delta delta) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 delta delta) #s(literal -2/45 binary64))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))
(*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (pow phi1 2) (+ 1/2 (+ (* -1/3 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 1/2 (cos (* 2 delta))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))))
(* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* 2/45 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 phi1 phi1) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal -1/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 2/45 binary64)))))))
(* (pow phi1 2) (+ 1/2 (+ (* 1/2 (cos (* 2 delta))) (* (pow phi1 2) (+ (* -1/3 (+ 1/2 (* 1/2 (cos (* 2 delta))))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (+ 1/2 (* 1/2 (cos (* 2 delta)))))) (* 2/45 (+ 1/2 (* 1/2 (cos (* 2 delta))))))))))))
(*.f64 (*.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/6 binary64) (+.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 phi1 phi1) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (+.f64 #s(literal 2/45 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/315 binary64))))))))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1)))))
(*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta))))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (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 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (+ (cos delta) (* -1 (/ (* (sin phi1) (- (* (+ 1/2 (* 1/2 (cos (* 2 delta)))) (- 1/2 (* 1/2 (cos (* 2 phi1))))) (* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2))))) (- (* (cos delta) (sin phi1)) (* (cos phi1) (* (cos theta) (sin delta)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (sin.f64 phi1) (-.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (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 (*.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))))))))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(- 1/2 (* 1/2 (cos (* 2 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64)))
(* delta (* (cos phi1) (cos theta)))
(*.f64 (*.f64 delta (cos.f64 phi1)) (cos.f64 theta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* (cos phi1) (cos theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 theta))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (cos theta))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (cos theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (cos theta)))) (* 1/120 (* (cos phi1) (cos theta)))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (cos.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(+ (* -1/2 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* (cos theta) (sin delta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* 1/24 (* (pow phi1 2) (* (cos theta) (sin delta)))))))
(+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1))))))
(+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/24 (* (cos theta) (sin delta))))))))
(+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 theta)) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1)) #s(literal 1/24 binary64)))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (sin delta))
(*.f64 (cos.f64 phi1) (sin.f64 delta))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* 1/24 (* (pow theta 2) (* (cos phi1) (sin delta)))))))
(+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 theta theta)) #s(literal -1/2 binary64)))))
(+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/24 (* (cos phi1) (sin delta))))))))
(+.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta))))))))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(* 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 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* 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 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 phi1 phi1))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -29/5040 binary64))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 theta theta)) #s(literal -1/2 binary64)))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(* 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 #s(literal -1/6 binary64) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 theta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (cos theta))
(*.f64 delta (cos.f64 theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (cos.f64 theta)))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(*.f64 delta (+.f64 (cos.f64 theta) (*.f64 (*.f64 delta delta) (*.f64 (cos.f64 theta) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(*.f64 delta (+.f64 (cos.f64 theta) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (cos.f64 theta) #s(literal -1/6 binary64)) (*.f64 (*.f64 delta delta) (*.f64 (cos.f64 theta) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+.f64 (sin.f64 delta) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (sin.f64 delta) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta))))))))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
phi1
(+ phi1 (* -1/2 (* (pow delta 2) phi1)))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) phi1)
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* 1/24 (* (pow delta 2) phi1)))))
(+.f64 phi1 (*.f64 (*.f64 delta delta) (*.f64 phi1 (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 delta delta))))))
(+ phi1 (* (pow delta 2) (+ (* -1/2 phi1) (* (pow delta 2) (+ (* -1/720 (* (pow delta 2) phi1)) (* 1/24 phi1))))))
(+.f64 phi1 (*.f64 (*.f64 delta delta) (+.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (*.f64 delta delta) (*.f64 phi1 (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 delta delta)) #s(literal 1/24 binary64)))))))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
(* phi1 (cos delta))
(*.f64 phi1 (cos.f64 delta))
1
#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 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(- 1 (pow (sin phi1) 2))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(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))
(* 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 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 phi1 phi1))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal -1/144 binary64) (cos.f64 theta)) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -29/5040 binary64))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* 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 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (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 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 theta theta)) #s(literal -1/2 binary64)))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow delta 2)))
(-.f64 #s(literal 1 binary64) (*.f64 delta delta))
(+ 1 (* (pow delta 2) (- (* 1/3 (pow delta 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/3 binary64)))))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/3 (* -2/45 (pow delta 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 delta delta) #s(literal -2/45 binary64)))))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(+ 1/2 (* 1/2 (cos (* 2 delta))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))
(* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))
(*.f64 (*.f64 delta delta) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(* (pow delta 2) (+ (* -1/3 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(*.f64 (*.f64 delta delta) (*.f64 (+.f64 (*.f64 #s(literal -1/3 binary64) (*.f64 delta delta)) #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
(* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* 2/45 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(*.f64 (*.f64 delta delta) (+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal -1/3 binary64) (*.f64 #s(literal 2/45 binary64) (*.f64 delta delta)))))))
(* (pow delta 2) (+ (* (pow delta 2) (+ (* -1/3 (* (pow (cos phi1) 2) (pow (cos theta) 2))) (* (pow delta 2) (+ (* -1/315 (* (pow delta 2) (* (pow (cos phi1) 2) (pow (cos theta) 2)))) (* 2/45 (* (pow (cos phi1) 2) (pow (cos theta) 2))))))) (* (pow (cos phi1) 2) (pow (cos theta) 2))))
(*.f64 (*.f64 delta delta) (+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 theta) #s(literal 2 binary64))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 2/45 binary64) (*.f64 #s(literal -1/315 binary64) (*.f64 delta delta)))))))))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos theta) 2) (pow (sin delta) 2))
(*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))
(+ (* -1 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))))
(+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(+.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64))))))
(+ (* (pow phi1 2) (+ (* -1 (* (pow (cos theta) 2) (pow (sin delta) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos theta) 2) (pow (sin delta) 2))))))) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64)))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (+.f64 #s(literal 1/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -2/45 binary64)))))))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (pow (sin delta) 2))
(*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(+ (* -1 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
(+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* 1/3 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(+.f64 (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/3 binary64) (*.f64 theta theta))))))
(+ (* (pow theta 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (sin delta) 2))) (* (pow theta 2) (+ (* -2/45 (* (pow theta 2) (* (pow (cos phi1) 2) (pow (sin delta) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (sin delta) 2))))))) (* (pow (cos phi1) 2) (pow (sin delta) 2)))
(+.f64 (*.f64 (+.f64 (-.f64 #s(literal 0 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (pow.f64 (sin.f64 delta) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (+.f64 (*.f64 #s(literal -2/45 binary64) (*.f64 theta theta)) #s(literal 1/3 binary64))))))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(* (pow (cos phi1) 2) (* (pow (cos theta) 2) (pow (sin delta) 2)))
(*.f64 (*.f64 (pow.f64 (cos.f64 theta) #s(literal 2 binary64)) (pow.f64 (sin.f64 delta) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))

eval386.0ms (2.1%)

Memory
44.2MiB live, 625.9MiB allocated
Compiler

Compiled 90 278 to 5 055 computations (94.4% saved)

prune300.0ms (1.6%)

Memory
-41.7MiB live, 522.6MiB allocated
Pruning

33 alts after pruning (31 fresh and 2 done)

PrunedKeptTotal
New1 737251 762
Fresh13619
Picked325
Done000
Total1 753331 786
Accuracy
100.0%
Counts
1 786 → 33
Alt Table
Click to see full alt table
StatusAccuracyProgram
30.7%
(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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
33.1%
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64)))))
99.5%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
80.4%
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
88.8%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
80.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
50.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
▶99.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
✓99.8%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
96.1%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
88.4%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
77.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
▶96.2%
(+.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
99.9%
(+.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)
90.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
▶85.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
89.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
57.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))))
63.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))
96.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))))
93.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
99.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
96.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
77.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
▶66.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
80.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 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
68.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
46.9%
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))))
▶99.9%
(*.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
✓70.9%
lambda1
Compiler

Compiled 2 465 to 1 417 computations (42.5% saved)

simplify299.0ms (1.6%)

Memory
29.6MiB live, 506.1MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
✓cost-diff0
(+.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
✓cost-diff6464
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
✓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 phi1 phi1)))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
✓cost-diff0
(/.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
✓cost-diff0
(+.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1))
✓cost-diff256
(*.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
✓cost-diff6464
(-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
Rules
6 588×accelerator-lowering-fma.f32
6 588×accelerator-lowering-fma.f64
3 876×*-lowering-*.f32
3 876×*-lowering-*.f64
1 164×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
050652
1122652
2276636
3569632
4834632
51268632
61818632
72972632
84969632
95725632
106617632
117324632
127869632
08065627
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1))
1
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))
(* (cos delta) (pow (cos phi1) 2))
(cos delta)
(pow (cos phi1) 2)
2
(* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))
(* (cos phi1) (cos theta))
(cos theta)
(* (sin phi1) (sin delta))
(sin phi1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(sin theta)
theta
(sin delta)
delta
(cos phi1)
phi1
(- 1 (* phi1 phi1))
1
(* phi1 phi1)
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta)))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (cos delta) (* (* phi1 (cos theta)) (sin delta)))
(cos delta)
(* (* phi1 (cos theta)) (sin delta))
(* phi1 (cos theta))
(cos theta)
lambda1
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))
(* (cos delta) (pow (cos phi1) 2))
(cos delta)
(pow (cos phi1) 2)
2
(* (cos phi1) (* (sin phi1) (sin delta)))
(* (sin phi1) (sin delta))
(sin phi1)
lambda1
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta))
(/ (+ (cos (* phi1 2)) 1) 2)
(+ (cos (* phi1 2)) 1)
(cos (* phi1 2))
(* phi1 2)
2
1
(cos delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(sin phi1)
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)
lambda1
Outputs
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1))
1
#s(literal 1 binary64)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(* (cos delta) (pow (cos phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(cos delta)
(cos.f64 delta)
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
2
#s(literal 2 binary64)
(* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(* (cos phi1) (cos theta))
(*.f64 (cos.f64 phi1) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
(* (sin phi1) (sin delta))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(sin phi1)
(sin.f64 phi1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1)))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(* (* (sin theta) (sin delta)) (cos phi1))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(* (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
(- 1 (* phi1 phi1))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
1
#s(literal 1 binary64)
(* phi1 phi1)
(*.f64 phi1 phi1)
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (cos delta) (* (* phi1 (cos theta)) (sin delta)))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))
(cos delta)
(cos.f64 delta)
(* (* phi1 (cos theta)) (sin delta))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(cos theta)
(cos.f64 theta)
lambda1
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta)))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos delta) (pow (cos phi1) 2))
(*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
(cos delta)
(cos.f64 delta)
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
2
#s(literal 2 binary64)
(* (cos phi1) (* (sin phi1) (sin delta)))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(* (sin phi1) (sin delta))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(sin phi1)
(sin.f64 phi1)
lambda1
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (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 (cos.f64 theta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (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 (cos.f64 theta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos 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 (cos.f64 theta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta))
(/.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal -2 binary64))))) #s(literal 2 binary64))
(/ (+ (cos (* phi1 2)) 1) 2)
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal -2 binary64))) #s(literal 2 binary64)))
(+ (cos (* phi1 2)) 1)
(+.f64 #s(literal 1 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
#s(literal 1 binary64)
(cos delta)
(cos.f64 delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(sin phi1)
(sin.f64 phi1)
(* (cos phi1) (* (sin delta) (cos theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
lambda1

localize402.0ms (2.2%)

Memory
-33.6MiB live, 505.5MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
✓accuracy99.5%
(+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))
✓accuracy99.7%
(*.f64 (sin.f64 phi1) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.6%
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
✓accuracy99.8%
(*.f64 phi1 (cos.f64 theta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.7%
(*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))
✓accuracy100.0%
(cos.f64 phi1)
✓accuracy99.9%
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
✓accuracy99.7%
(*.f64 (sin.f64 theta) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.6%
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
✓accuracy99.6%
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
✓accuracy95.4%
(/.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
Samples
301.0ms256×0valid
Compiler

Compiled 654 to 53 computations (91.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 118.0ms
ival-cos: 45.0ms (38.3% of total)
ival-mult: 25.0ms (21.3% of total)
ival-sin: 17.0ms (14.5% of total)
ival-atan2: 10.0ms (8.5% of total)
ival-add: 7.0ms (6% of total)
ival-sub: 5.0ms (4.3% of total)
ival-pow2: 4.0ms (3.4% of total)
ival-div: 3.0ms (2.6% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series62.0ms (0.3%)

Memory
16.0MiB live, 131.8MiB allocated
Counts
25 → 852
Calls
Call 1
Inputs
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)>
#<alt (+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1))))>
#<alt (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1)))>
#<alt (* (* (sin theta) (sin delta)) (cos phi1))>
#<alt (* (sin theta) (sin delta))>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta)))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (cos phi1)>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta)))))>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (pow (cos phi1) 2)>
#<alt (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))>
#<alt (* (* phi1 (cos theta)) (sin delta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* phi1 (cos theta))>
#<alt (* (sin phi1) (sin delta))>
#<alt (+ (cos (* phi1 2)) 1)>
#<alt (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))>
Outputs
#<alt (pow (cos phi1) 2)>
#<alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow 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 (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt 1>
#<alt (+ 1 (* -1/2 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (pow (cos phi1) 2)>
#<alt (+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))>
#<alt (+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (sin delta))))>
#<alt (+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (sin delta))))>
#<alt (+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))) (sin delta))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt 1>
#<alt (+ 1 (* -1 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (pow (cos phi1) 2)>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))>
#<alt (* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* delta (* (cos 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)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (sin delta))>
#<alt (+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))>
#<alt (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))>
#<alt (+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* delta (* phi1 (cos theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))>
#<alt (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))>
#<alt (* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* phi1 (* (cos theta) (sin delta)))>
#<alt (* delta (sin theta))>
#<alt (* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))>
#<alt (* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* theta (sin delta))>
#<alt (* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))>
#<alt (* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* (sin delta) (sin theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt phi1>
#<alt (+ phi1 (* -1/2 (* phi1 (pow theta 2))))>
#<alt (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow theta 2))))))>
#<alt (+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* (pow theta 2) (+ (* -1/720 (* phi1 (pow theta 2))) (* 1/24 phi1))))))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (cos theta))>
#<alt (* phi1 (sin delta))>
#<alt (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* delta (sin phi1))>
#<alt (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))>
#<alt (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))>
#<alt (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt 2>
#<alt (+ 2 (* -2 (pow phi1 2)))>
#<alt (+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))>
#<alt (+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 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 (* 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 (* (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

213 calls:

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

rewrite532.0ms (2.9%)

Memory
20.3MiB live, 722.9MiB allocated
Algorithm
1×batch-egg-rewrite
Rules
5 552×accelerator-lowering-fma.f32
5 552×accelerator-lowering-fma.f64
5 220×*-lowering-*.f32
5 220×*-lowering-*.f64
4 444×/-lowering-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
050395
1295395
22367393
09827392
Stop Event
1×iter limit
1×node limit
Counts
25 → 486
Calls
Call 1
Inputs
(- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta))))) lambda1)
(+ lambda1 (atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1))))
(atan2 (* (* (sin theta) (sin delta)) (cos phi1)) (- 1 (* phi1 phi1)))
(* (* (sin theta) (sin delta)) (cos phi1))
(* (sin theta) (sin delta))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta)))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (* phi1 (cos theta)) (sin delta))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin phi1) (sin delta)))))
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(pow (cos phi1) 2)
(* (* (cos phi1) (cos theta)) (* (sin phi1) (sin delta)))
(* (* phi1 (cos theta)) (sin delta))
(* (sin delta) (sin theta))
(* phi1 (cos theta))
(* (sin phi1) (sin delta))
(+ (cos (* phi1 2)) 1)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
Outputs
(+.f64 (*.f64 (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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(+.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (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 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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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))))) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(fma.f64 (cos.f64 phi1) (neg.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (neg.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 phi1) (neg.f64 (*.f64 (cos.f64 phi1) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (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)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (-.f64 #s(literal 0 binary64) (sin.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)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))) (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (neg.f64 (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (neg.f64 (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)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.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 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))) (sin.f64 phi1)) (sin.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta))) (cos.f64 theta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) (neg.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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) (neg.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 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (*.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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))))) (neg.f64 (neg.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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 (+.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (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 phi1 #s(literal 2 binary64))))))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 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 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))
(+.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) lambda1)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))) (/.f64 (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))))
(fma.f64 lambda1 #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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))
(fma.f64 lambda1 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))
(fma.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64) lambda1)
(fma.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) lambda1 lambda1)
(fma.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (/.f64 lambda1 #s(literal 1 binary64)) lambda1)
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)
(fma.f64 (/.f64 lambda1 #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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) lambda1)
(fma.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(fma.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) (/.f64 lambda1 lambda1) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) lambda1)
(fma.f64 (/.f64 lambda1 #s(literal -1 binary64)) (/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1) lambda1)
(fma.f64 (/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal -1 binary64)) (/.f64 lambda1 lambda1) lambda1)
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64))))
(/.f64 (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64)))) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (*.f64 lambda1 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)))) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))) lambda1) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))) 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (*.f64 lambda1 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))))) (neg.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (neg.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))) lambda1)) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))) lambda1)) (neg.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (+.f64 (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 (pow.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))
(+.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))) (/.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(-.f64 (/.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))))
(fma.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))
(fma.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda1)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (pow.f64 (/.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal -1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1) #s(literal 1 binary64))
(fma.f64 (*.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(fma.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)))) (neg.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (-.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))) (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)))) (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (neg.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))))) (neg.f64 (neg.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(exp.f64 (*.f64 (log.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) #s(literal -1 binary64)))
(-.f64 (/.f64 #s(literal 0 binary64) (-.f64 #s(literal 0 binary64) lambda1)) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1)))
(neg.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (-.f64 #s(literal 0 binary64) lambda1)))
(neg.f64 (/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))
(/.f64 #s(literal 1 binary64) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)
(/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal 1 binary64))))
(/.f64 (*.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1)
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) lambda1)
(/.f64 (neg.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (neg.f64 (-.f64 #s(literal 0 binary64) lambda1)))
(/.f64 (neg.f64 (*.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (neg.f64 (-.f64 #s(literal 0 binary64) lambda1)))
(/.f64 (neg.f64 (*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64))) (-.f64 #s(literal 0 binary64) lambda1))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (neg.f64 (neg.f64 (-.f64 #s(literal 0 binary64) lambda1))))
(pow.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal 1 binary64)) #s(literal -1 binary64))
(*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))
(*.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (/.f64 #s(literal 1 binary64) lambda1))
(*.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) lambda1)))
(*.f64 (/.f64 #s(literal 1 binary64) 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(*.f64 (/.f64 #s(literal 1 binary64) lambda1) (pow.f64 (/.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 (-.f64 #s(literal 0 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) lambda1))
(*.f64 (*.f64 #s(literal 1 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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))) (/.f64 #s(literal 1 binary64) lambda1))
(*.f64 (/.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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) lambda1))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(-.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (-.f64 (*.f64 lambda1 lambda1) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))) (*.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)))) (*.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))
(pow.f64 (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))))
(*.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(-.f64 (/.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.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 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta 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 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)
(-.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)) (*.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1))) (*.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(/.f64 (neg.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (neg.f64 (neg.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))))))
(*.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) (cos.f64 phi1))) #s(literal -2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(*.f64 (sin.f64 delta) (*.f64 (sin.f64 theta) (cos.f64 phi1)))
(*.f64 (sin.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 delta)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 theta))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta))
(exp.f64 (log.f64 (cos.f64 phi1)))
(cos.f64 phi1)
(pow.f64 (cos.f64 phi1) #s(literal 1 binary64))
(pow.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))
(pow.f64 (sqrt.f64 (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (cos.f64 phi1)) (sqrt.f64 (cos.f64 phi1)))
(*.f64 (pow.f64 (sqrt.f64 (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (cos.f64 phi1)) #s(literal 1 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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))
(+.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (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 (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 phi1) (sin.f64 delta))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) (/.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))))
(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 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (neg.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))
(fma.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (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)))))))
(fma.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (neg.f64 (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)))))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (*.f64 (sin.f64 phi1) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (sin.f64 phi1)) (sin.f64 delta) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (-.f64 #s(literal 0 binary64) (cos.f64 phi1)) (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 phi1 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1)))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (neg.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) (neg.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 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) (*.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) (*.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))))) (neg.f64 (neg.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (-.f64 #s(literal 0 binary64) (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))))))))))
(pow.f64 (/.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))))
(*.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (pow.f64 (cos.f64 phi1) #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))) (/.f64 #s(literal 1 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 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+.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 (sin.f64 phi1) (sin.f64 delta))))))
(+.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(-.f64 (/.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.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 (sin.f64 phi1) (sin.f64 delta))))))) (/.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (-.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 (sin.f64 phi1) (sin.f64 delta))))))))
(fma.f64 lambda1 #s(literal 1 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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(fma.f64 #s(literal 1 binary64) 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 (sin.f64 phi1) (sin.f64 delta))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta)))))))) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1) (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta)))))))))
(/.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.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 (sin.f64 phi1) (sin.f64 delta)))))))))
(/.f64 (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta)))))))) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1) (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (neg.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))))
(/.f64 (neg.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.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 (sin.f64 phi1) (sin.f64 delta))))))))))
(/.f64 (neg.f64 (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64))) (-.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 (sin.f64 phi1) (sin.f64 delta)))))))
(/.f64 (-.f64 (*.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)) (*.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1) (*.f64 lambda1 lambda1))) (*.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1) (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))))) (neg.f64 (neg.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (neg.f64 (neg.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)))) (neg.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))
(pow.f64 (/.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta)))))))) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.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 (sin.f64 phi1) (sin.f64 delta))))) lambda1) (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal -1 binary64))
(*.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))))
(*.f64 (-.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 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 (sin.f64 phi1) (sin.f64 delta))))) 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 (sin.f64 phi1) (sin.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)
(-.f64 (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (/.f64 (*.f64 lambda1 lambda1) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))) (/.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(fma.f64 lambda1 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(fma.f64 #s(literal 1 binary64) lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64))) (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))
(/.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (*.f64 lambda1 lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) (neg.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64))) (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)) (*.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (*.f64 lambda1 lambda1))) (*.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(/.f64 (neg.f64 (neg.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)))) (neg.f64 (neg.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 lambda1) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))
(pow.f64 (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1) (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1))) #s(literal -1 binary64))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))))))))
(*.f64 (-.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) #s(literal 2 binary64)) (*.f64 lambda1 lambda1)) (/.f64 #s(literal 1 binary64) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 delta))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))))
(exp.f64 (*.f64 (log.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)))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 (cos.f64 phi1))) #s(literal 1 binary64)))
(exp.f64 (+.f64 (log.f64 (cos.f64 phi1)) (log.f64 (cos.f64 phi1))))
(/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 (-.f64 phi1 phi1))) #s(literal 2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) (cos.f64 (-.f64 phi1 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 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 phi1 #s(literal 2 binary64))))))))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.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))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (cos.f64 phi1))
(/.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 (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 phi1) (cos.f64 theta)) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))
(/.f64 (neg.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 (neg.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 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (cos.f64 theta))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (cos.f64 theta)) (sin.f64 delta))
(/.f64 (*.f64 phi1 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 phi1 (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(*.f64 phi1 (*.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(*.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 theta)))
(*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) phi1)
(*.f64 (*.f64 phi1 (sin.f64 delta)) (cos.f64 theta))
(*.f64 (*.f64 (sin.f64 delta) phi1) (cos.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 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta theta)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))))
(/.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.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 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 theta delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 delta theta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta theta)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 theta delta)) (cos.f64 (+.f64 delta theta)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta 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 (-.f64 (cos.f64 (-.f64 delta theta)) (cos.f64 (+.f64 delta theta))) #s(literal 1/2 binary64))
(*.f64 phi1 (cos.f64 theta))
(*.f64 (cos.f64 theta) phi1)
(-.f64 (/.f64 (cos.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 delta phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 delta phi1)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 delta)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (cos.f64 (+.f64 delta phi1)))) #s(literal 4 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 delta phi1)) (cos.f64 (+.f64 delta phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))))) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal -1 binary64))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #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 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)))
(/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)) (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))
(/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #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 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #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) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64))) (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #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 1 binary64))) (*.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64))))
(/.f64 (neg.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)))) (neg.f64 (neg.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)))))
(pow.f64 (/.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64))) #s(literal -1 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))))
(*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1 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 (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 phi1) (cos.f64 theta)) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta)))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 phi1) (sin.f64 delta))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64))
(/.f64 (neg.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 (neg.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 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (+.f64 (sin.f64 (-.f64 delta theta)) (sin.f64 (+.f64 delta theta))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi1 theta)) (cos.f64 (-.f64 phi1 theta))) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 (cos.f64 (-.f64 phi1 delta)) (cos.f64 (+.f64 delta phi1))) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) #s(literal -2 binary64))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))
(*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (cos.f64 theta)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (cos.f64 theta))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (sin.f64 phi1))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))
(*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1)))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))) (sin.f64 delta))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (cos.f64 phi1))
(*.f64 (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) (cos.f64 phi1))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi1)) (cos.f64 theta)) (sin.f64 delta))

simplify616.0ms (3.4%)

Memory
26.5MiB live, 888.2MiB allocated
Algorithm
1×egg-herbie
Rules
14 356×accelerator-lowering-fma.f32
14 356×accelerator-lowering-fma.f64
7 848×*-lowering-*.f32
7 848×*-lowering-*.f64
4 384×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
045617087
1154216753
2536716389
0811415829
Stop Event
1×iter limit
1×node limit
Counts
852 → 852
Calls
Call 1
Inputs
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))) (* (cos theta) (sin delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow 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))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
1
(+ 1 (* -1/2 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(cos delta)
(+ (cos delta) (* -1 (* phi1 (sin delta))))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (sin delta))))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))) (sin delta))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
1
(+ 1 (* -1 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(pow (cos phi1) 2)
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (* (cos 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)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (sin delta))
(+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))
(+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))
(+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* delta (* phi1 (cos theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))
(* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))
(* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* phi1 (* (cos theta) (sin delta)))
(* delta (sin theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* theta (sin delta))
(* theta (+ (sin delta) (* -1/6 (* (pow theta 2) (sin delta)))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow theta 2) (sin delta)))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* (sin delta) (sin theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
phi1
(+ phi1 (* -1/2 (* phi1 (pow theta 2))))
(+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow theta 2))))))
(+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* (pow theta 2) (+ (* -1/720 (* phi1 (pow theta 2))) (* 1/24 phi1))))))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (cos theta))
(* phi1 (sin delta))
(* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* delta (sin phi1))
(* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
2
(+ 2 (* -2 (pow phi1 2)))
(+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))
(+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 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))))
(* 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))))
(* (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
(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 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta)))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))) (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi1) delta)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(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 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))) (*.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 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal 2/3 binary64)))) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos delta) (pow (cos phi1) 2))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/24 binary64)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (+ (* (cos delta) (pow (cos phi1) 2)) (* (pow theta 2) (- (* (pow theta 2) (- (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))) (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1))))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal -1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/720 binary64))))) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 lambda1 (*.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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 lambda1 (*.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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(*.f64 lambda1 (*.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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
(/.f64 (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
(/.f64 (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))) lambda1)
(/.f64 (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1) lambda1)
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) 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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) 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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 theta theta))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.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 (*.f64 theta theta) #s(literal -1/5040 binary64)) #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 (*.f64 #s(literal -1/6 binary64) 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 (cos.f64 phi1) (*.f64 (sin.f64 theta) (*.f64 delta delta))) (+.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 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 theta) (*.f64 phi1 (*.f64 phi1 (sin.f64 delta)))) (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 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 theta (sin.f64 delta))
(* 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 (*.f64 theta (sin.f64 delta))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) 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 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.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))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* 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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(-.f64 #s(literal 0 binary64) (*.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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(-.f64 #s(literal 0 binary64) (*.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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta))))) lambda1)) 1)))
(-.f64 #s(literal 0 binary64) (*.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 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) lambda1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* phi1 (* (cos theta) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 theta) (*.f64 phi1 (*.f64 phi1 (sin.f64 delta)))) (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* delta (* (cos phi1) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) 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 (cos.f64 phi1) (*.f64 (sin.f64 theta) (*.f64 delta delta))) (+.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 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.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 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 (sin.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 theta theta))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.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 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))) (*.f64 (*.f64 theta theta) (*.f64 theta theta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64))))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))
(-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))
(+ (* delta (- (* -1/2 (* delta (pow (cos phi1) 2))) (* (cos phi1) (sin phi1)))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(+ (* delta (- (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (sin phi1)))))) (* (cos phi1) (sin 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 (cos.f64 phi1) (sin.f64 phi1)) (*.f64 delta #s(literal 1/6 binary64))))) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(cos delta)
(cos.f64 delta)
(+ (cos delta) (* -1 (* phi1 (sin delta))))
(-.f64 (cos.f64 delta) (*.f64 phi1 (sin.f64 delta)))
(+ (cos delta) (* phi1 (- (* -1 (* phi1 (cos delta))) (sin delta))))
(+.f64 (cos.f64 delta) (neg.f64 (*.f64 (+.f64 (*.f64 phi1 (cos.f64 delta)) (sin.f64 delta)) phi1)))
(+ (cos delta) (* phi1 (- (* phi1 (+ (* -1 (cos delta)) (* -1 (* phi1 (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))) (sin delta))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 (sin.f64 delta) #s(literal 2/3 binary64))) (cos.f64 delta))) (sin.f64 delta))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(*.f64 (-.f64 #s(literal -1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) (pow (cos phi1) 2)) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)) (-.f64 #s(literal 0 binary64) lambda1))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* 1/2 (* (cos delta) (+ 1 (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 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
1
#s(literal 1 binary64)
(+ 1 (* -1 (pow phi1 2)))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
(+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))
(+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 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))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) (*.f64 phi1 phi1)))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal 2/15 binary64))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -4/315 binary64)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 theta theta))) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64)))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)))) (*.f64 (*.f64 theta theta) (*.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta delta))) (+.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 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta delta))) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (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)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(+ (* -1/2 (* phi1 (* (pow theta 2) (sin delta)))) (* phi1 (sin delta)))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 #s(literal -1/2 binary64) (*.f64 theta (*.f64 theta (sin.f64 delta))))))
(+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* 1/24 (* phi1 (* (pow theta 2) (sin delta)))))))
(+.f64 (*.f64 phi1 (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 phi1 (sin.f64 delta)) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64))))))
(+ (* phi1 (sin delta)) (* (pow theta 2) (+ (* -1/2 (* phi1 (sin delta))) (* (pow theta 2) (+ (* -1/720 (* phi1 (* (pow theta 2) (sin delta)))) (* 1/24 (* phi1 (sin delta))))))))
(+.f64 (*.f64 phi1 (sin.f64 delta)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 phi1 (*.f64 theta theta))) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)))))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* delta (* phi1 (cos theta)))
(*.f64 phi1 (*.f64 (cos.f64 theta) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* phi1 (cos theta)))) (* phi1 (cos theta))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 phi1 (cos.f64 theta))))
(* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* 1/120 (* (pow delta 2) (* phi1 (cos theta))))))))
(*.f64 delta (+.f64 (*.f64 phi1 (cos.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (* phi1 (cos theta)) (* (pow delta 2) (+ (* -1/6 (* phi1 (cos theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* phi1 (cos theta)))) (* 1/120 (* phi1 (cos theta)))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 phi1 (cos.f64 theta))) (*.f64 (*.f64 (*.f64 phi1 (cos.f64 theta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))) (*.f64 (*.f64 delta delta) (*.f64 delta delta)))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* delta (sin theta))
(*.f64 delta (sin.f64 theta))
(* delta (+ (sin theta) (* -1/6 (* (pow delta 2) (sin theta)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) 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 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64)))))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin theta))) (* 1/120 (sin theta))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(* 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 (*.f64 theta (sin.f64 delta))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/120 binary64))))))
(* theta (+ (sin delta) (* (pow theta 2) (+ (* -1/6 (sin delta)) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (sin delta))) (* 1/120 (sin delta))))))))
(*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
phi1
(+ phi1 (* -1/2 (* phi1 (pow theta 2))))
(+.f64 phi1 (*.f64 phi1 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta))))
(+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow theta 2))))))
(+.f64 phi1 (*.f64 (*.f64 theta theta) (*.f64 phi1 (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64))))))
(+ phi1 (* (pow theta 2) (+ (* -1/2 phi1) (* (pow theta 2) (+ (* -1/720 (* phi1 (pow theta 2))) (* 1/24 phi1))))))
(+.f64 phi1 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 phi1 #s(literal -1/2 binary64)) (*.f64 (*.f64 phi1 (*.f64 theta theta)) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)))))))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (cos theta))
(*.f64 phi1 (cos.f64 theta))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (sin.f64 delta)))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 (*.f64 phi1 (sin.f64 delta))) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/120 binary64))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))
(*.f64 phi1 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 phi1 (*.f64 phi1 (*.f64 (*.f64 phi1 (*.f64 phi1 (sin.f64 delta))) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/5040 binary64))))))))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* delta (sin phi1))
(*.f64 delta (sin.f64 phi1))
(* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 phi1)))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))
(*.f64 delta (+.f64 (sin.f64 phi1) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 phi1) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)))))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))
(*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 delta (*.f64 delta (sin.f64 phi1))) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64))))))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 phi1) (sin.f64 delta))
2
#s(literal 2 binary64)
(+ 2 (* -2 (pow phi1 2)))
(+.f64 #s(literal 2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -2 binary64))))
(+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))
(+.f64 #s(literal 2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal -2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 2/3 binary64))))))
(+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))
(+.f64 #s(literal 2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 2/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -4/45 binary64)))))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(* phi1 (* (cos theta) (sin delta)))
(*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (* -1/6 (* (cos theta) (sin delta)))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 #s(literal -2/3 binary64) (*.f64 phi1 phi1)))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (* 1/12 (* (cos theta) (sin delta)))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))) #s(literal 2/15 binary64))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal -4/315 binary64)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* delta (* (cos phi1) (* (cos theta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) delta))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* (cos phi1) (* (cos theta) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) 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 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta delta))) (+.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 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (*.f64 delta delta))) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 delta)) (*.f64 theta theta))) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 theta theta) #s(literal 1/24 binary64)))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 theta theta) #s(literal -1/720 binary64)))) (*.f64 (*.f64 theta theta) (*.f64 theta theta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))

eval316.0ms (1.7%)

Memory
21.3MiB live, 561.6MiB allocated
Compiler

Compiled 66 893 to 3 670 computations (94.5% saved)

prune259.0ms (1.4%)

Memory
2.2MiB live, 602.2MiB allocated
Pruning

55 alts after pruning (54 fresh and 1 done)

PrunedKeptTotal
New1 812411 853
Fresh131326
Picked505
Done112
Total1 831551 886
Accuracy
100.0%
Counts
1 886 → 55
Alt Table
Click to see full alt table
StatusAccuracyProgram
30.7%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
10.6%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
27.9%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
30.7%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
37.1%
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))))
99.5%
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
99.9%
(+.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
88.8%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
88.7%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
85.1%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
80.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
80.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
84.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
92.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
92.8%
(+.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 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
77.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
88.4%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
▶90.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
90.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)
▶99.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
89.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
73.1%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
▶80.4%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
80.4%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
78.7%
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
63.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
62.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
62.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
57.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))))
63.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))
93.6%
(+.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)))))
77.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
80.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 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
61.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
61.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 phi1 phi1))))
61.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
68.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
64.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
63.7%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
64.1%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
63.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
▶64.9%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
43.2%
(*.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))))
80.3%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
90.3%
(*.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) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
96.2%
(*.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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)))
▶89.3%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
99.8%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (/.f64 #s(literal 1 binary64) lambda1))))
✓70.9%
lambda1
Compiler

Compiled 3 792 to 2 341 computations (38.3% saved)

simplify365.0ms (2%)

Memory
-29.8MiB live, 376.7MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓cost-diff0
(cos.f64 phi1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
✓cost-diff128
(*.f64 (cos.f64 delta) #s(literal 1 binary64))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
✓cost-diff0
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
✓cost-diff0
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1))
✓cost-diff256
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
✓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 phi1 phi1)))
✓cost-diff0
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
✓cost-diff0
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓cost-diff0
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
✓cost-diff0
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
✓cost-diff128
(+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))
Rules
7 120×accelerator-lowering-fma.f32
7 120×accelerator-lowering-fma.f64
3 506×*-lowering-*.f32
3 506×*-lowering-*.f64
1 492×+-lowering-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
050536
1120536
2274532
3561528
4955528
51368528
61991528
72920528
83788528
94799528
105840528
116709528
127586528
08047523
Stop Event
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))
(+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))
(* (cos phi1) (cos delta))
(cos delta)
(* (sin phi1) (* (cos theta) (- 0 (sin delta))))
(sin phi1)
(* (cos theta) (- 0 (sin delta)))
(cos theta)
(- 0 (sin delta))
0
lambda1
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1))))
lambda1
(atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1)))
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- 1 (* phi1 phi1))
1
(* phi1 phi1)
phi1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
1
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(cos delta)
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(cos phi1)
phi1
(* (sin delta) (sin theta))
(sin delta)
delta
(sin theta)
theta
(- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta))))
(* (cos delta) 1)
(cos delta)
1
(* (cos phi1) (* (sin phi1) (sin delta)))
(* (sin phi1) (sin delta))
(sin phi1)
lambda1
(+ (atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(* (cos phi1) (* theta (sin delta)))
(cos phi1)
phi1
(* theta (sin delta))
theta
(sin delta)
delta
(- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta))
(/ (+ (cos (* phi1 2)) 1) 2)
(+ (cos (* phi1 2)) 1)
(cos (* phi1 2))
(* phi1 2)
2
1
(cos delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(sin phi1)
(* (cos phi1) (* (sin delta) (cos theta)))
(* (sin delta) (cos theta))
(cos theta)
lambda1
Outputs
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta)))))) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta)))))
(+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(* (cos phi1) (cos delta))
(*.f64 (cos.f64 phi1) (cos.f64 delta))
(cos delta)
(cos.f64 delta)
(* (sin phi1) (* (cos theta) (- 0 (sin delta))))
(-.f64 #s(literal 0 binary64) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(sin phi1)
(sin.f64 phi1)
(* (cos theta) (- 0 (sin delta)))
(*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))
(cos theta)
(cos.f64 theta)
(- 0 (sin delta))
(-.f64 #s(literal 0 binary64) (sin.f64 delta))
0
#s(literal 0 binary64)
lambda1
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
(atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- 1 (* phi1 phi1))
(-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))
1
#s(literal 1 binary64)
(* phi1 phi1)
(*.f64 phi1 phi1)
phi1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))
lambda1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1))
1
#s(literal 1 binary64)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(cos delta)
(cos.f64 delta)
(+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(cos phi1)
(cos.f64 phi1)
phi1
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(sin delta)
(sin.f64 delta)
delta
(sin theta)
(sin.f64 theta)
theta
(- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta))))
(-.f64 (cos.f64 delta) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(* (cos delta) 1)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
1
#s(literal 1 binary64)
(* (cos phi1) (* (sin phi1) (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(* (sin phi1) (sin delta))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(sin phi1)
(sin.f64 phi1)
lambda1
(+ (atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta)) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))))
(* (cos phi1) (* theta (sin delta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) theta))
(cos phi1)
(cos.f64 phi1)
phi1
(* theta (sin delta))
(*.f64 (sin.f64 delta) theta)
theta
(sin delta)
(sin.f64 delta)
delta
(- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))
(-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta)))))
(* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta))
(*.f64 (cos.f64 delta) (+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/ (+ (cos (* phi1 2)) 1) 2)
(+.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+ (cos (* phi1 2)) 1)
(+.f64 #s(literal 1 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
#s(literal 1 binary64)
(cos delta)
(cos.f64 delta)
(* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (*.f64 (sin.f64 phi1) (cos.f64 theta))))
(sin phi1)
(sin.f64 phi1)
(* (cos phi1) (* (sin delta) (cos theta)))
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))
(* (sin delta) (cos theta))
(*.f64 (sin.f64 delta) (cos.f64 theta))
(cos theta)
(cos.f64 theta)
lambda1

localize268.0ms (1.5%)

Memory
28.1MiB live, 461.1MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
✓accuracy99.7%
(*.f64 (sin.f64 delta) (cos.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta)))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))
✓accuracy99.5%
(+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))
✓accuracy99.7%
(*.f64 (sin.f64 phi1) (sin.f64 delta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.9%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy95.4%
(/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
✓accuracy100.0%
(sin.f64 delta)
✓accuracy100.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
✓accuracy100.0%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (sin.f64 delta) (sin.f64 theta))
✓accuracy99.7%
(*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta)))
✓accuracy99.6%
(*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
✓accuracy99.6%
(*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
Samples
136.0ms256×0valid
Compiler

Compiled 553 to 53 computations (90.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 103.0ms
ival-mult: 37.0ms (36.1% of total)
ival-cos: 21.0ms (20.5% of total)
ival-sin: 18.0ms (17.6% of total)
ival-atan2: 9.0ms (8.8% of total)
ival-add: 8.0ms (7.8% of total)
ival-sub: 5.0ms (4.9% of total)
ival-div: 3.0ms (2.9% of total)
exact: 1.0ms (1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

series52.0ms (0.3%)

Memory
-10.0MiB live, 106.7MiB allocated
Counts
26 → 876
Calls
Call 1
Inputs
#<alt (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta)))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (* phi1 phi1)))>
#<alt (* (sin delta) (sin theta))>
#<alt (sin delta)>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (* (cos delta) 1)>
#<alt (+ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (* (cos delta) 1) (* (cos phi1) (* (sin phi1) (sin delta)))))>
#<alt (+ (atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta)))))) lambda1)>
#<alt (atan2 (* (cos phi1) (* theta (sin delta))) (- (* (/ (+ (cos (* phi1 2)) 1) 2) (cos delta)) (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))))>
#<alt (* (cos phi1) (* theta (sin delta)))>
#<alt (cos phi1)>
#<alt (* (cos phi1) (+ (* (cos phi1) (cos delta)) (* (sin phi1) (* (cos theta) (- 0 (sin delta))))))>
#<alt (* (sin phi1) (* (cos theta) (- 0 (sin delta))))>
#<alt (* (sin phi1) (sin delta))>
#<alt (* (cos phi1) (* (sin phi1) (sin delta)))>
#<alt (+ (cos (* phi1 2)) 1)>
#<alt (* (sin phi1) (* (cos phi1) (* (sin delta) (cos theta))))>
#<alt (* (sin delta) (cos theta))>
Outputs
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* -1/2 (* phi1 (cos delta))))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1/2 (cos delta)) (* 1/6 (* phi1 (* (cos theta) (sin delta)))))))))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (cos phi1)>
#<alt (+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))>
#<alt (+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* -1/2 (* delta (cos phi1))))))>
#<alt (+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* delta (+ (* -1/2 (cos phi1)) (* 1/6 (* delta (* (cos theta) (sin phi1)))))))))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (+ (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1)))))))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1))))))))))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))>
#<alt (* (sin delta) (sin theta))>
#<alt (+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))>
#<alt (+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* delta (* (cos phi1) (sin theta)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))>
#<alt (* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* theta (* (cos phi1) (sin delta)))>
#<alt (* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))>
#<alt (* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (* (cos phi1) (* (sin delta) (sin theta)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))>
#<alt (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 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 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)>
#<alt (/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt 1>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))>
#<alt 1>
#<alt (+ 1 (* -1/2 (pow delta 2)))>
#<alt (+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))>
#<alt (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (cos delta)>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt (+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))>
#<alt lambda1>
#<alt (* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt (* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))>
#<alt lambda1>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<alt (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))>
#<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 (* 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 (* 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 1>
#<alt (+ 1 (* -1/2 (pow phi1 2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))>
#<alt (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos phi1)>
#<alt (cos delta)>
#<alt (+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))>
#<alt (+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* phi1 (+ (* 1/6 (* (cos theta) (sin delta))) (* 1/2 (* (cos theta) (sin delta))))))))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (pow (cos phi1) 2)>
#<alt (+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/2 (* delta (pow (cos phi1) 2))))) (pow (cos phi1) 2))>
#<alt (+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))))) (pow (cos phi1) 2))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1))))>
#<alt (+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))))>
#<alt (+ (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))))))>
#<alt (+ (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))>
#<alt (* -1 (* phi1 (* (cos theta) (sin delta))))>
#<alt (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* 1/6 (* (pow phi1 2) (* (cos theta) (sin delta))))))>
#<alt (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/6 (* (cos theta) (sin delta)))))))>
#<alt (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (cos theta) (sin delta))) (* 1/5040 (* (pow phi1 2) (* (cos theta) (sin delta))))))))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (sin delta) (sin phi1)))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1))))))>
#<alt (+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1)))))))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* delta (* (cos theta) (sin phi1))))>
#<alt (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* 1/6 (* (pow delta 2) (* (cos theta) (sin phi1))))))>
#<alt (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos theta) (sin phi1)))))))>
#<alt (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* 1/6 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (cos theta) (sin phi1))) (* 1/5040 (* (pow delta 2) (* (cos theta) (sin phi1))))))))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* -1 (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* phi1 (sin delta))>
#<alt (* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* delta (sin phi1))>
#<alt (* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))>
#<alt (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))>
#<alt (* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* (sin delta) (sin phi1))>
#<alt (* phi1 (sin delta))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))>
#<alt (* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* delta (* (cos phi1) (sin phi1)))>
#<alt (* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))>
#<alt (* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))>
#<alt (* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt 2>
#<alt (+ 2 (* -2 (pow phi1 2)))>
#<alt (+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))>
#<alt (+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 phi1)))>
#<alt (+ 1 (cos (* 2 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 (* 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 (* (cos phi1) (* (sin delta) (sin phi1)))>
#<alt (+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))>
#<alt (+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))>
#<alt (* delta (cos theta))>
#<alt (* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))>
#<alt (* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (sin delta)>
#<alt (+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))>
#<alt (+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
#<alt (* (cos theta) (sin delta))>
Calls

219 calls:

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

rewrite457.0ms (2.5%)

Memory
40.0MiB live, 767.2MiB allocated
Algorithm
1×batch-egg-rewrite
Rules
4 934×*-lowering-*.f32
4 934×*-lowering-*.f64
4 850×accelerator-lowering-fma.f32
4 850×accelerator-lowering-fma.f64
4 084×/-lowering-/.f32
Iterations

Useful iterations: 0 (0.0ms)

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

simplify618.0ms (3.4%)

Memory
-47.5MiB live, 1 028.4MiB allocated
Algorithm
1×egg-herbie
Rules
9 174×accelerator-lowering-fma.f32
9 174×accelerator-lowering-fma.f64
5 634×+-lowering-+.f64
5 634×+-lowering-+.f32
4 710×*-lowering-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
060214810
1212214347
2437114330
3549014197
4795314197
0800713974
Stop Event
1×iter limit
1×node limit
Counts
876 → 876
Calls
Call 1
Inputs
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* -1/2 (* phi1 (cos delta))))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1/2 (cos delta)) (* 1/6 (* phi1 (* (cos theta) (sin delta)))))))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(cos phi1)
(+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))
(+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* -1/2 (* delta (cos phi1))))))
(+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* delta (+ (* -1/2 (cos phi1)) (* 1/6 (* delta (* (cos theta) (sin phi1)))))))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1)))))))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1))))))))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(* (sin delta) (sin theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* delta (* (cos phi1) (sin theta)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* (cos phi1) (sin theta))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin theta))))))))
(* delta (+ (* (cos phi1) (sin theta)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin theta))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin theta)))) (* 1/120 (* (cos phi1) (sin theta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* theta (* (cos phi1) (sin delta)))
(* theta (+ (* -1/6 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* (cos phi1) (sin delta))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* (pow theta 2) (+ (* -1/5040 (* (pow theta 2) (* (cos phi1) (sin delta)))) (* 1/120 (* (cos phi1) (sin delta)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(* (cos phi1) (* (sin delta) (sin theta)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 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 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
1
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
1
(+ 1 (* -1/2 (pow delta 2)))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(cos delta)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(* 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)))
(* 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)))
(* 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)))
1
(+ 1 (* -1/2 (pow phi1 2)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos phi1)
(cos delta)
(+ (cos delta) (* -1 (* phi1 (* (cos theta) (sin delta)))))
(+ (cos delta) (* phi1 (+ (* -1 (* phi1 (cos delta))) (* -1 (* (cos theta) (sin delta))))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* phi1 (+ (* 1/6 (* (cos theta) (sin delta))) (* 1/2 (* (cos theta) (sin delta))))))))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(pow (cos phi1) 2)
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/2 (* delta (pow (cos phi1) 2))))) (pow (cos phi1) 2))
(+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))))) (pow (cos phi1) 2))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1))))
(+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))))
(+ (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos 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) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(* -1 (* phi1 (* (cos theta) (sin delta))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* 1/6 (* (pow phi1 2) (* (cos theta) (sin delta))))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/6 (* (cos theta) (sin delta)))))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (cos theta) (sin delta))) (* 1/5040 (* (pow phi1 2) (* (cos theta) (sin delta))))))))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (sin delta) (sin phi1)))
(+ (* -1 (* (sin delta) (sin phi1))) (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))))
(+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1))))))
(+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1)))))))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* delta (* (cos theta) (sin phi1))))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* 1/6 (* (pow delta 2) (* (cos theta) (sin phi1))))))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos theta) (sin phi1)))))))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* 1/6 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (cos theta) (sin phi1))) (* 1/5040 (* (pow delta 2) (* (cos theta) (sin phi1))))))))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(* phi1 (sin delta))
(* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* delta (sin phi1))
(* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* (sin delta) (sin phi1))
(* phi1 (sin delta))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* delta (* (cos phi1) (sin phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
(* (cos phi1) (* (sin delta) (sin phi1)))
2
(+ 2 (* -2 (pow phi1 2)))
(+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))
(+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 phi1)))
(+ 1 (cos (* 2 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))))
(* 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))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(+ (* -1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (* (sin delta) (sin phi1))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))
(+ (* (cos phi1) (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/24 (* (cos phi1) (* (sin delta) (sin phi1)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(* delta (cos theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(sin delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
(* (cos theta) (sin delta))
Outputs
(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 (* (cos theta) (sin delta))) (* -1/2 (* phi1 (cos delta))))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 delta) phi1)) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1/2 (cos delta)) (* 1/6 (* phi1 (* (cos theta) (sin delta)))))))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (+.f64 (*.f64 (cos.f64 delta) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/6 binary64) phi1) (*.f64 (cos.f64 theta) (sin.f64 delta))))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* -1 (* delta (* (cos theta) (sin phi1)))))
(-.f64 (cos.f64 phi1) (*.f64 (*.f64 delta (cos.f64 theta)) (sin.f64 phi1)))
(+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* -1/2 (* delta (cos phi1))))))
(+.f64 (cos.f64 phi1) (*.f64 delta (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta (cos.f64 phi1))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+ (cos phi1) (* delta (+ (* -1 (* (cos theta) (sin phi1))) (* delta (+ (* -1/2 (cos phi1)) (* 1/6 (* delta (* (cos theta) (sin phi1)))))))))
(+.f64 (cos.f64 phi1) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal 1/6 binary64) delta) (*.f64 (cos.f64 theta) (sin.f64 phi1))))) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(+.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)))))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1)))))))
(+.f64 (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))))
(+ (* -1 (* (sin delta) (sin phi1))) (+ (* (cos delta) (cos phi1)) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1))))))))))
(+.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1/24 binary64) (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta))))))) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))
(-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (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 phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(+ (* -1/2 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* (sin delta) (sin theta)))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta)))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* 1/24 (* (pow phi1 2) (* (sin delta) (sin theta)))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64))))))
(+ (* (sin delta) (sin theta)) (* (pow phi1 2) (+ (* -1/2 (* (sin delta) (sin theta))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (sin delta) (sin theta)))) (* 1/24 (* (sin delta) (sin theta))))))))
(+.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (sin.f64 theta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (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 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.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 (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 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (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 (sin.f64 delta) (cos.f64 phi1))))
(* theta (+ (* (cos phi1) (sin delta)) (* (pow theta 2) (+ (* -1/6 (* (cos phi1) (sin delta))) (* 1/120 (* (pow theta 2) (* (cos phi1) (sin delta))))))))
(*.f64 theta (+.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (*.f64 #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 (sin.f64 delta) (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 theta theta)) #s(literal 1/120 binary64))))))))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(* (cos phi1) (* (sin delta) (sin theta)))
(*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(* lambda1 (+ 1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+ lambda1 (atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2))))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(atan2 (* (sin delta) (sin theta)) (- 1 (pow phi1 2)))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(* 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 #s(literal -1/6 binary64) (*.f64 delta delta))) (sin.f64 theta)))
(* delta (+ (sin theta) (* (pow delta 2) (+ (* -1/6 (sin theta)) (* 1/120 (* (pow delta 2) (sin theta)))))))
(*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 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 (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 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* (sin delta) (sin theta))
(*.f64 (sin.f64 delta) (sin.f64 theta))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(* 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
(* delta (+ 1 (* -1/6 (pow delta 2))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))))
(* 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 (*.f64 delta delta) #s(literal 1/120 binary64))))))
(* delta (+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/120 (* -1/5040 (pow delta 2)))) 1/6))))
(*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64))))))))
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(sin delta)
(sin.f64 delta)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)) 1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)))
(+.f64 lambda1 (*.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) #s(literal 1 binary64)))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))) lambda1)
(/ (+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))) lambda1)
(/.f64 (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))) lambda1)
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
1
#s(literal 1 binary64)
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1))
(+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1))
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta)) lambda1)
(/.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (cos delta))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow delta 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 delta delta)))
(+ 1 (* (pow delta 2) (- (* 1/24 (pow delta 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 delta delta)))))
(+ 1 (* (pow delta 2) (- (* (pow delta 2) (+ 1/24 (* -1/720 (pow delta 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (*.f64 delta delta)))))))
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(cos delta)
(cos.f64 delta)
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(* lambda1 (+ 1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(atan2 (* (cos phi1) (* (sin delta) (sin theta))) (- (cos delta) (* (cos phi1) (* (sin delta) (sin phi1)))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
(+ lambda1 (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1)))))
lambda1
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
(* lambda1 (+ 1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
lambda1
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
(* -1 (* lambda1 (- (* -1 (/ (atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1)))))) lambda1)) 1)))
(+.f64 lambda1 (*.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(atan2 (* theta (* (cos phi1) (sin delta))) (- (* 1/2 (* (cos delta) (+ 1 (cos (* 2 phi1))))) (* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))))
(atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) (*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))))
(* theta (sin delta))
(*.f64 theta (sin.f64 delta))
(+ (* -1/2 (* (pow phi1 2) (* theta (sin delta)))) (* theta (sin delta)))
(*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 theta (sin.f64 delta)))
(+ (* theta (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* theta (sin delta))) (* 1/24 (* (pow phi1 2) (* theta (sin delta)))))))
(+.f64 (*.f64 theta (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 theta (sin.f64 delta)) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64))))))
(+ (* 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 theta (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta (sin.f64 delta))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 theta (sin.f64 delta)) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64))))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* delta (* theta (cos phi1)))
(*.f64 delta (*.f64 theta (cos.f64 phi1)))
(* delta (+ (* -1/6 (* (pow delta 2) (* theta (cos phi1)))) (* theta (cos phi1))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 theta (cos.f64 phi1))))
(* delta (+ (* theta (cos phi1)) (* (pow delta 2) (+ (* -1/6 (* theta (cos phi1))) (* 1/120 (* (pow delta 2) (* theta (cos phi1))))))))
(*.f64 delta (+.f64 (*.f64 theta (cos.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 theta (cos.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* 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 theta (cos.f64 phi1)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta (cos.f64 phi1))) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 theta (cos.f64 phi1)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
(* theta (* (cos phi1) (sin delta)))
(*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/24 binary64)))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/720 binary64)))))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(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))) (* -1 (* (cos theta) (sin delta))))))
(-.f64 (cos.f64 delta) (*.f64 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (cos.f64 delta) phi1)) phi1))
(+ (cos delta) (* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* phi1 (+ (* -1 (cos delta)) (* phi1 (+ (* 1/6 (* (cos theta) (sin delta))) (* 1/2 (* (cos theta) (sin delta))))))))))
(+.f64 (cos.f64 delta) (*.f64 phi1 (-.f64 (*.f64 phi1 (-.f64 (*.f64 phi1 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal 2/3 binary64)))) (cos.f64 delta))) (*.f64 (cos.f64 theta) (sin.f64 delta)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(pow (cos phi1) 2)
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(+ (* -1 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))) (pow (cos phi1) 2))
(-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (*.f64 delta (cos.f64 phi1)) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* -1/2 (* delta (pow (cos phi1) 2))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 delta (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(+ (* delta (+ (* -1 (* (cos phi1) (* (cos theta) (sin phi1)))) (* delta (+ (* -1/2 (pow (cos phi1) 2)) (* 1/6 (* delta (* (cos phi1) (* (cos theta) (sin phi1))))))))) (pow (cos phi1) 2))
(+.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 delta (-.f64 (*.f64 delta (+.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/6 binary64) delta) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))
(+ (* 1/2 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))))
(+.f64 (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta)) #s(literal -1 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 delta) (cos.f64 phi1))))
(+ (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))) (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1)))) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (+ (* -1 (* (sin delta) (sin phi1))) (* (cos delta) (cos phi1)))) (* (pow theta 2) (+ (* 1/2 (* (cos phi1) (* (sin delta) (sin phi1)))) (* (pow theta 2) (+ (* -1/24 (* (cos phi1) (* (sin delta) (sin phi1)))) (* 1/720 (* (pow theta 2) (* (cos phi1) (* (sin delta) (sin phi1))))))))))
(+.f64 (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (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 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (+.f64 #s(literal -1/24 binary64) (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta))))))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* (cos phi1) (+ (* -1 (* (cos theta) (* (sin delta) (sin phi1)))) (* (cos delta) (cos phi1))))
(*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))
(* -1 (* phi1 (* (cos theta) (sin delta))))
(*.f64 phi1 (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* 1/6 (* (pow phi1 2) (* (cos theta) (sin delta))))))
(*.f64 phi1 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/6 binary64) (*.f64 phi1 phi1)))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos theta) (sin delta)))) (* 1/6 (* (cos theta) (sin delta)))))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (*.f64 phi1 phi1))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(* phi1 (+ (* -1 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/120 (* (cos theta) (sin delta))) (* 1/5040 (* (pow phi1 2) (* (cos theta) (sin delta))))))))))
(*.f64 phi1 (-.f64 (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (cos.f64 theta)) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (+.f64 #s(literal -1/120 binary64) (*.f64 #s(literal 1/5040 binary64) (*.f64 phi1 phi1))))))) (*.f64 (cos.f64 theta) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (sin delta) (sin phi1)))
(*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))
(+ (* -1 (* (sin delta) (sin phi1))) (* 1/2 (* (pow theta 2) (* (sin delta) (sin phi1)))))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta))))
(+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (pow theta 2) (* (sin delta) (sin phi1)))) (* 1/2 (* (sin delta) (sin phi1))))))
(-.f64 (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 theta theta)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(+ (* -1 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* 1/2 (* (sin delta) (sin phi1))) (* (pow theta 2) (+ (* -1/24 (* (sin delta) (sin phi1))) (* 1/720 (* (pow theta 2) (* (sin delta) (sin phi1)))))))))
(-.f64 (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 delta)) (sin.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1/24 binary64) (*.f64 #s(literal 1/720 binary64) (*.f64 theta theta))))))) (*.f64 (sin.f64 delta) (sin.f64 phi1)))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* delta (* (cos theta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (-.f64 #s(literal 0 binary64) delta))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* 1/6 (* (pow delta 2) (* (cos theta) (sin phi1))))))
(*.f64 delta (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/6 binary64) (*.f64 delta delta)))))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (pow delta 2) (* (cos theta) (sin phi1)))) (* 1/6 (* (cos theta) (sin phi1)))))))
(*.f64 delta (-.f64 (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 (*.f64 #s(literal -1/120 binary64) (*.f64 delta delta)) #s(literal 1/6 binary64)))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* delta (+ (* -1 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* 1/6 (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/120 (* (cos theta) (sin phi1))) (* 1/5040 (* (pow delta 2) (* (cos theta) (sin phi1))))))))))
(*.f64 delta (-.f64 (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal 1/6 binary64) (cos.f64 theta)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 phi1)) (+.f64 #s(literal -1/120 binary64) (*.f64 #s(literal 1/5040 binary64) (*.f64 delta delta))))))) (*.f64 (cos.f64 theta) (sin.f64 phi1))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* -1 (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(* phi1 (+ (sin delta) (* -1/6 (* (pow phi1 2) (sin delta)))))
(*.f64 phi1 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi1)) #s(literal 1 binary64)) (sin.f64 delta)))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* 1/120 (* (pow phi1 2) (sin delta)))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) (+.f64 #s(literal -1/6 binary64) (*.f64 #s(literal 1/120 binary64) (*.f64 phi1 phi1)))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin delta))) (* 1/120 (sin delta))))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) #s(literal -1/6 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1)))))))))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* delta (sin phi1))
(*.f64 delta (sin.f64 phi1))
(* delta (+ (sin phi1) (* -1/6 (* (pow delta 2) (sin phi1)))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (sin.f64 phi1)))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow delta 2) (sin phi1)))))))
(*.f64 delta (+.f64 (sin.f64 phi1) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 phi1) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (sin phi1) (* (pow delta 2) (+ (* -1/6 (sin phi1)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (sin phi1))) (* 1/120 (sin phi1))))))))
(*.f64 delta (+.f64 (sin.f64 phi1) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (sin.f64 phi1) #s(literal -1/6 binary64)) (*.f64 (*.f64 delta delta) (*.f64 (sin.f64 phi1) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* (sin delta) (sin phi1))
(*.f64 (sin.f64 delta) (sin.f64 phi1))
(* phi1 (sin delta))
(*.f64 phi1 (sin.f64 delta))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (* -1/6 (sin delta))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) #s(literal -2/3 binary64)))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (* 1/12 (sin delta))))))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) #s(literal 2/15 binary64)))))))
(* phi1 (+ (sin delta) (* (pow phi1 2) (+ (* -1/2 (sin delta)) (+ (* -1/6 (sin delta)) (* (pow phi1 2) (+ (* 1/120 (sin delta)) (+ (* 1/24 (sin delta)) (+ (* 1/12 (sin delta)) (* (pow phi1 2) (+ (* -1/144 (sin delta)) (+ (* -1/240 (sin delta)) (+ (* -1/720 (sin delta)) (* -1/5040 (sin delta)))))))))))))))
(*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) #s(literal -2/3 binary64)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) #s(literal -4/315 binary64)))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* delta (* (cos phi1) (sin phi1)))
(*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 phi1))
(* delta (+ (* -1/6 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* (cos phi1) (sin phi1))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (sin.f64 phi1) (cos.f64 phi1))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* 1/120 (* (pow delta 2) (* (cos phi1) (sin phi1))))))))
(*.f64 delta (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (* (cos phi1) (sin phi1)) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (sin phi1))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (sin phi1)))) (* 1/120 (* (cos phi1) (sin phi1)))))))))
(*.f64 delta (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (sin.f64 phi1)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi1)) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))
2
#s(literal 2 binary64)
(+ 2 (* -2 (pow phi1 2)))
(+.f64 #s(literal 2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -2 binary64)))
(+ 2 (* (pow phi1 2) (- (* 2/3 (pow phi1 2)) 2)))
(+.f64 #s(literal 2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -2 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 2/3 binary64)))))
(+ 2 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/3 (* -4/45 (pow phi1 2)))) 2)))
(+.f64 #s(literal 2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -2 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 2/3 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -4/45 binary64)))))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(+ 1 (cos (* 2 phi1)))
(+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64))))
(* 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 (cos.f64 theta) (sin.f64 delta)) (*.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 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)))))))
(* phi1 (+ (* (cos theta) (sin delta)) (* (pow phi1 2) (+ (* -1/2 (* (cos theta) (sin delta))) (+ (* -1/6 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* 1/120 (* (cos theta) (sin delta))) (+ (* 1/24 (* (cos theta) (sin delta))) (+ (* 1/12 (* (cos theta) (sin delta))) (* (pow phi1 2) (+ (* -1/144 (* (cos theta) (sin delta))) (+ (* -1/240 (* (cos theta) (sin delta))) (+ (* -1/720 (* (cos theta) (sin delta))) (* -1/5040 (* (cos theta) (sin delta))))))))))))))))
(*.f64 phi1 (+.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -2/3 binary64))) (*.f64 (*.f64 phi1 phi1) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (sin.f64 delta)) #s(literal 2/15 binary64)) (*.f64 (*.f64 phi1 phi1) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 theta) #s(literal -4/315 binary64))))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* 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 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.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 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (* (cos phi1) (* (cos theta) (sin phi1))) (* (pow delta 2) (+ (* -1/6 (* (cos phi1) (* (cos theta) (sin phi1)))) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (* (cos phi1) (* (cos theta) (sin phi1))))) (* 1/120 (* (cos phi1) (* (cos theta) (sin phi1))))))))))
(*.f64 delta (+.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 phi1))) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) (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/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (sin delta) (sin phi1)))
(*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.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 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.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 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.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 (sin.f64 delta) (sin.f64 phi1)) (cos.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 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1)) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64)))))))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* (cos phi1) (* (cos theta) (* (sin delta) (sin phi1))))
(*.f64 (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))) (cos.f64 phi1))
(* delta (cos theta))
(*.f64 delta (cos.f64 theta))
(* delta (+ (cos theta) (* -1/6 (* (pow delta 2) (cos theta)))))
(*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (cos.f64 theta)))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* 1/120 (* (pow delta 2) (cos theta)))))))
(*.f64 delta (+.f64 (cos.f64 theta) (*.f64 (*.f64 delta delta) (*.f64 (cos.f64 theta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))))
(* delta (+ (cos theta) (* (pow delta 2) (+ (* -1/6 (cos theta)) (* (pow delta 2) (+ (* -1/5040 (* (pow delta 2) (cos theta))) (* 1/120 (cos theta))))))))
(*.f64 delta (+.f64 (cos.f64 theta) (*.f64 (*.f64 delta delta) (+.f64 (*.f64 (cos.f64 theta) #s(literal -1/6 binary64)) (*.f64 (*.f64 delta delta) (*.f64 (cos.f64 theta) (+.f64 #s(literal 1/120 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/5040 binary64)))))))))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(sin delta)
(sin.f64 delta)
(+ (sin delta) (* -1/2 (* (pow theta 2) (sin delta))))
(*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* 1/24 (* (pow theta 2) (sin delta))))))
(+.f64 (sin.f64 delta) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 theta theta))))))
(+ (sin delta) (* (pow theta 2) (+ (* -1/2 (sin delta)) (* (pow theta 2) (+ (* -1/720 (* (pow theta 2) (sin delta))) (* 1/24 (sin delta)))))))
(+.f64 (sin.f64 delta) (*.f64 (*.f64 theta theta) (+.f64 (*.f64 (sin.f64 delta) #s(literal -1/2 binary64)) (*.f64 (*.f64 theta theta) (*.f64 (sin.f64 delta) (+.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 theta theta)) #s(literal 1/24 binary64)))))))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))
(* (cos theta) (sin delta))
(*.f64 (cos.f64 theta) (sin.f64 delta))

eval269.0ms (1.5%)

Memory
51.9MiB live, 582.6MiB allocated
Compiler

Compiled 54 313 to 3 364 computations (93.8% saved)

prune265.0ms (1.5%)

Memory
-14.7MiB live, 615.1MiB allocated
Pruning

66 alts after pruning (64 fresh and 2 done)

PrunedKeptTotal
New1 716361 752
Fresh212849
Picked415
Done011
Total1 741661 807
Accuracy
100.0%
Counts
1 807 → 66
Alt Table
Click to see full alt table
StatusAccuracyProgram
89.3%
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
85.2%
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
85.2%
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
22.6%
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
30.7%
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
21.6%
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
9.2%
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
30.7%
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
37.1%
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))))
99.9%
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
99.9%
(+.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
77.6%
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
88.7%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
88.7%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
85.1%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
88.8%
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
86.6%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (sin.f64 delta)) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
80.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
80.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
92.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
92.8%
(+.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 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
77.5%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
89.8%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
90.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
90.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) lambda1)
96.2%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
80.6%
(+.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)
84.9%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta))))))) lambda1)
84.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
89.3%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
80.4%
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
78.7%
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
63.6%
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
62.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
57.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))))
63.3%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))
93.6%
(+.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)))))
77.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
80.2%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
61.8%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
68.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
63.5%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
64.0%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
63.4%
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
60.1%
(+.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 phi1 phi1))))
60.8%
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
64.3%
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
43.2%
(*.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))))
77.2%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
74.1%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
88.1%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
56.0%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
80.3%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
96.2%
(*.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 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)))
✓89.3%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
75.5%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
76.6%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
74.1%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
74.8%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
89.2%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
40.8%
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) #s(literal -1 binary64)))))
✓70.9%
lambda1
Compiler

Compiled 5 955 to 1 962 computations (67.1% saved)

regimes363.0ms (2%)

Memory
-25.8MiB live, 672.3MiB allocated
Counts
127 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) #s(literal -1 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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(+.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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.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 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 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 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) 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) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (sin.f64 delta)) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (+.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 phi1) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 phi1) (sin.f64 delta))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))))
(+.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 theta)) (sin.f64 delta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (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 (*.f64 (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 phi1) (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 theta) (sin.f64 delta)))))) (/.f64 #s(literal 1 binary64) lambda1))))
(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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta))))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (/.f64 (sin.f64 phi1) (/.f64 #s(literal 1 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(*.f64 lambda1 (+.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 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (exp.f64 (*.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal 2 binary64)))))) #s(literal 1 binary64)))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (-.f64 (cos.f64 delta) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (cos.f64 delta))) (*.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) (sin.f64 phi1)))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 2 binary64)))))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (fma.f64 (-.f64 #s(literal 0 binary64) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (sin.f64 phi1) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (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 #s(literal 0 binary64) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 2 binary64))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) 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 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (pow.f64 (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (cos.f64 delta))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 delta #s(literal 2 binary64))))) (*.f64 (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))) (+.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1)))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta)))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (cos.f64 theta) (*.f64 phi1 (sin.f64 delta))))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 lambda1 lambda1) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) (-.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) lambda1))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 (cos.f64 delta) phi1))))) #s(literal 3 binary64)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 delta) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) (+.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 3 binary64))) (pow.f64 (cos.f64 delta) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (*.f64 (-.f64 #s(literal 0 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)))))))
(*.f64 (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 3 binary64)) (*.f64 lambda1 (*.f64 lambda1 lambda1))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 (sin.f64 phi1) (sin.f64 delta))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 (sin.f64 phi1) (sin.f64 delta))))))))))
(*.f64 (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.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 delta) (*.f64 (cos.f64 theta) (*.f64 (cos.f64 phi1) (sin.f64 phi1)))))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 2 binary64)) (*.f64 lambda1 (-.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta)))))))))) (+.f64 (*.f64 lambda1 (*.f64 lambda1 lambda1)) (pow.f64 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 (sin.f64 delta) (cos.f64 phi1))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (cos.f64 theta))))))) #s(literal 3 binary64)))))
Outputs
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
Calls

7 calls:

72.0ms
lambda1
46.0ms
theta
46.0ms
(atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta))))))))
40.0ms
delta
39.0ms
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (sin.f64 (asin.f64 (+.f64 (*.f64 (sin.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 delta)) (cos.f64 theta)))))))))
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)

regimes176.0ms (1%)

Memory
28.1MiB live, 342.6MiB allocated
Counts
88 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) #s(literal -1 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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(+.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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.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 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 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 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) 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) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (sin.f64 delta)) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 phi1) (+.f64 (*.f64 (cos.f64 delta) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 delta)))))))
Outputs
(+.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
Calls

5 calls:

27.0ms
phi2
24.0ms
lambda1
24.0ms
phi1
24.0ms
delta
24.0ms
theta
Results
AccuracySegmentsBranch
96.2%1lambda1
96.2%1phi1
96.2%1phi2
96.2%1delta
96.2%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes165.0ms (0.9%)

Memory
20.5MiB live, 288.9MiB allocated
Counts
86 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) #s(literal -1 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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(+.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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.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 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 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 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 delta)))))) 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) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 theta)) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (+.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 theta theta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta)))) (sin.f64 delta)) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (*.f64 (cos.f64 phi1) (+.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 theta) (-.f64 #s(literal 0 binary64) (sin.f64 delta))))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal -1/3 binary64))))) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (cos.f64 theta)))))) lambda1)
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
Outputs
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
Calls

5 calls:

53.0ms
theta
26.0ms
lambda1
25.0ms
delta
24.0ms
phi2
24.0ms
phi1
Results
AccuracySegmentsBranch
96.2%1lambda1
96.2%1phi1
96.2%1phi2
96.2%1delta
96.2%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes167.0ms (0.9%)

Memory
-28.1MiB live, 221.5MiB allocated
Counts
64 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) #s(literal -1 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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (sin.f64 delta) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (cos.f64 phi1)) (sin.f64 delta)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 delta) #s(literal 3 binary64)) #s(literal 0 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) delta))))) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 (sin.f64 delta) (sin.f64 phi1)) (cos.f64 phi1))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (cos.f64 delta) (*.f64 (sin.f64 delta) (*.f64 (cos.f64 phi1) (sin.f64 phi1))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (*.f64 (cos.f64 phi1) (-.f64 (cos.f64 phi1) (*.f64 delta (*.f64 (sin.f64 phi1) (cos.f64 theta)))))))
(+.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 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) #s(literal 1 binary64)) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (*.f64 phi1 (+.f64 (*.f64 (sin.f64 delta) (cos.f64 theta)) (*.f64 phi1 (cos.f64 delta)))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 2 binary64)) (cos.f64 delta)) (*.f64 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 (*.f64 (cos.f64 delta) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi1 phi1) #s(literal 1/3 binary64)))))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (*.f64 (cos.f64 delta) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
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:

56.0ms
delta
49.0ms
theta
18.0ms
lambda1
18.0ms
phi2
17.0ms
phi1
Results
AccuracySegmentsBranch
93.6%1phi1
93.6%1lambda1
93.6%1phi2
93.6%1delta
93.6%1theta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes71.0ms (0.4%)

Memory
13.4MiB live, 171.1MiB allocated
Counts
43 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(fma.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 lambda1 (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(fma.f64 (/.f64 lambda1 lambda1) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
Calls

5 calls:

14.0ms
theta
13.0ms
delta
13.0ms
phi2
12.0ms
lambda1
12.0ms
phi1
Results
AccuracySegmentsBranch
89.3%1lambda1
89.3%1theta
89.3%1phi2
89.3%1phi1
92.6%3delta
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes18.0ms (0.1%)

Memory
13.3MiB live, 52.7MiB allocated
Counts
39 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 (cos.f64 delta) (*.f64 (*.f64 phi1 (cos.f64 theta)) (sin.f64 delta)))) lambda1)
(fma.f64 (*.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (/.f64 #s(literal 1 binary64) lambda1) lambda1)
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
Calls

1 calls:

11.0ms
delta
Results
AccuracySegmentsBranch
92.5%3delta
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes19.0ms (0.1%)

Memory
-37.6MiB live, 43.2MiB allocated
Counts
35 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
(+.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 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 2 binary64) phi1)) #s(literal -1/2 binary64))))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
Calls

1 calls:

10.0ms
delta
Results
AccuracySegmentsBranch
92.5%3delta
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes25.0ms (0.1%)

Memory
20.2MiB live, 58.4MiB allocated
Counts
33 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) (/.f64 #s(literal 1 binary64) lambda1))))
Outputs
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
Calls

2 calls:

10.0ms
lambda1
9.0ms
delta
Results
AccuracySegmentsBranch
89.3%1lambda1
89.3%1delta
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes47.0ms (0.3%)

Memory
20.7MiB live, 98.2MiB allocated
Counts
29 → 1
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 delta (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (sin.f64 delta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (*.f64 delta (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 delta (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta))) (*.f64 (cos.f64 phi1) (sin.f64 theta)))) (cos.f64 delta)) lambda1)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 theta (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)))) (cos.f64 delta)) lambda1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (sin.f64 theta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal 1/120 binary64) (*.f64 delta delta)) #s(literal -1/6 binary64))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta)) (*.f64 (*.f64 delta delta) (*.f64 (*.f64 (sin.f64 theta) (*.f64 delta delta)) (+.f64 (*.f64 #s(literal -1/5040 binary64) (*.f64 delta delta)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 theta theta)) #s(literal 1 binary64)) (sin.f64 delta)) (*.f64 (*.f64 theta theta) (*.f64 (*.f64 theta (*.f64 theta (sin.f64 delta))) (+.f64 (*.f64 (*.f64 theta theta) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64)))))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (cos.f64 delta))
Outputs
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
Calls

5 calls:

9.0ms
phi2
9.0ms
theta
8.0ms
phi1
8.0ms
delta
8.0ms
lambda1
Results
AccuracySegmentsBranch
88.1%1delta
88.1%1theta
88.1%1phi1
88.1%1phi2
88.1%1lambda1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes33.0ms (0.2%)

Memory
-21.7MiB live, 64.5MiB allocated
Counts
16 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/6 binary64) delta) delta) #s(literal 1 binary64)) (sin.f64 theta))) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal 1/24 binary64))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 phi1 phi1) (+.f64 #s(literal -1/2 binary64) (*.f64 phi1 (*.f64 phi1 (+.f64 #s(literal 1/24 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/720 binary64)))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
Outputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
Calls

5 calls:

10.0ms
lambda1
6.0ms
phi1
5.0ms
theta
5.0ms
phi2
5.0ms
delta
Results
AccuracySegmentsBranch
70.9%1delta
75.9%3phi1
70.9%1phi2
70.9%1theta
70.9%1lambda1
Compiler

Compiled 30 to 25 computations (16.7% saved)

regimes5.0ms (0%)

Memory
11.5MiB live, 11.5MiB allocated
Counts
11 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (sin.f64 theta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 theta (sin.f64 delta)) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
Outputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
Calls

1 calls:

4.0ms
phi1
Results
AccuracySegmentsBranch
75.5%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes5.0ms (0%)

Memory
-30.0MiB live, 9.3MiB allocated
Counts
8 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))
Outputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
Calls

1 calls:

4.0ms
phi1
Results
AccuracySegmentsBranch
75.0%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes4.0ms (0%)

Memory
6.6MiB live, 6.6MiB allocated
Counts
6 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) (+.f64 #s(literal -1/6 binary64) (*.f64 (*.f64 delta delta) #s(literal 1/120 binary64)))))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
Outputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
Calls

1 calls:

3.0ms
phi1
Results
AccuracySegmentsBranch
74.9%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes3.0ms (0%)

Memory
5.2MiB live, 5.2MiB allocated
Counts
4 → 3
Calls
Call 1
Inputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.f64 lambda1 (atan2.f64 (*.f64 theta (sin.f64 delta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
(+.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 phi1 phi1))))
Outputs
lambda1
(+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1))))
lambda1
Calls

1 calls:

2.0ms
phi1
Results
AccuracySegmentsBranch
74.5%3phi1
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes3.0ms (0%)

Memory
5.8MiB live, 5.8MiB allocated
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

2 calls:

1.0ms
lambda1
1.0ms
phi1
Results
AccuracySegmentsBranch
70.9%1lambda1
70.9%1phi1
Compiler

Compiled 12 to 10 computations (16.7% saved)

bsearch104.0ms (0.6%)

Memory
-4.8MiB live, 112.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
55.0ms
6.448684362590059e-9
6.48391544015835e-5
43.0ms
-0.00021603980917998824
-7.306364052504481e-12
Samples
88.0ms272×0valid
Compiler

Compiled 789 to 575 computations (27.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 79.0ms
ival-sin: 46.0ms (58.5% of total)
ival-cos: 12.0ms (15.3% of total)
ival-mult: 10.0ms (12.7% of total)
ival-asin: 4.0ms (5.1% of total)
ival-add: 2.0ms (2.5% of total)
ival-atan2: 2.0ms (2.5% of total)
ival-sub: 1.0ms (1.3% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch83.0ms (0.5%)

Memory
8.5MiB live, 162.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
37.0ms
6.448684362590059e-9
6.48391544015835e-5
40.0ms
-0.00021603980917998824
-7.306364052504481e-12
Samples
67.0ms272×0valid
Compiler

Compiled 721 to 524 computations (27.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 54.0ms
ival-sin: 21.0ms (38.6% of total)
ival-cos: 12.0ms (22.1% of total)
ival-mult: 10.0ms (18.4% of total)
ival-asin: 4.0ms (7.4% of total)
ival-add: 3.0ms (5.5% of total)
ival-atan2: 2.0ms (3.7% of total)
ival-sub: 1.0ms (1.8% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch89.0ms (0.5%)

Memory
0.5MiB live, 191.1MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
42.0ms
6.448684362590059e-9
6.48391544015835e-5
40.0ms
-0.00021603980917998824
-7.306364052504481e-12
Samples
72.0ms272×0valid
Compiler

Compiled 789 to 592 computations (25% saved)

Precisions
Click to see histograms. Total time spent on operations: 60.0ms
ival-sin: 27.0ms (45% of total)
ival-cos: 12.0ms (20% of total)
ival-mult: 10.0ms (16.7% of total)
ival-asin: 4.0ms (6.7% of total)
ival-add: 2.0ms (3.3% of total)
ival-atan2: 2.0ms (3.3% of total)
ival-sub: 1.0ms (1.7% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch138.0ms (0.8%)

Memory
9.6MiB live, 177.6MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
47.0ms
0.13835028932525234
6.342371977667102
85.0ms
-3.9820655202592364e+54
-4.5458061585857507e+49
Samples
123.0ms256×0valid
Compiler

Compiled 585 to 431 computations (26.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 99.0ms
ival-sin: 61.0ms (61.4% of total)
ival-cos: 20.0ms (20.1% of total)
ival-mult: 9.0ms (9.1% of total)
ival-asin: 4.0ms (4% of total)
ival-add: 2.0ms (2% of total)
ival-atan2: 2.0ms (2% of total)
ival-sub: 1.0ms (1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch90.0ms (0.5%)

Memory
-2.4MiB live, 192.6MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
38.0ms
0.13835028932525234
6.342371977667102
47.0ms
-10089116.587840956
-0.003119642362418583
Samples
76.0ms256×0valid
Compiler

Compiled 457 to 351 computations (23.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 65.0ms
ival-sin: 25.0ms (38.3% of total)
ival-cos: 18.0ms (27.6% of total)
ival-mult: 9.0ms (13.8% of total)
ival-add: 5.0ms (7.7% of total)
ival-asin: 5.0ms (7.7% of total)
ival-atan2: 3.0ms (4.6% of total)
ival-sub: 1.0ms (1.5% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch83.0ms (0.5%)

Memory
9.7MiB live, 88.4MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
34.0ms
0.13835028932525234
6.342371977667102
45.0ms
-0.0007913162817603514
-0.0001059769604014099
Samples
52.0ms208×0valid
Compiler

Compiled 626 to 421 computations (32.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 44.0ms
ival-sin: 17.0ms (38.5% of total)
ival-cos: 11.0ms (24.9% of total)
ival-mult: 7.0ms (15.9% of total)
ival-asin: 4.0ms (9.1% of total)
ival-add: 2.0ms (4.5% of total)
ival-atan2: 2.0ms (4.5% of total)
ival-sub: 1.0ms (2.3% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch67.0ms (0.4%)

Memory
4.1MiB live, 124.0MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
37.0ms
0.13835028932525234
6.342371977667102
26.0ms
-0.0007913162817603514
-0.0001059769604014099
Samples
56.0ms208×0valid
Compiler

Compiled 470 to 343 computations (27% saved)

Precisions
Click to see histograms. Total time spent on operations: 48.0ms
ival-sin: 20.0ms (41.6% of total)
ival-cos: 11.0ms (22.9% of total)
ival-mult: 9.0ms (18.7% of total)
ival-asin: 4.0ms (8.3% of total)
ival-add: 2.0ms (4.2% of total)
ival-atan2: 2.0ms (4.2% of total)
ival-sub: 1.0ms (2.1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

bsearch67.0ms (0.4%)

Memory
-2.5MiB live, 113.0MiB allocated
Algorithm
2×binary-search
Stop Event
1×predicate-same
1×narrow-enough
Steps
TimeLeftRight
16.0ms
2.784281117640728e-78
9.517040995539851e-76
47.0ms
-3.9820655202592364e+54
-4.5458061585857507e+49
Samples
56.0ms208×0valid
Compiler

Compiled 366 to 278 computations (24% saved)

Precisions
Click to see histograms. Total time spent on operations: 48.0ms
ival-sin: 17.0ms (35.2% of total)
ival-cos: 13.0ms (26.9% of total)
ival-mult: 10.0ms (20.7% of total)
ival-asin: 4.0ms (8.3% of total)
ival-add: 2.0ms (4.1% of total)
ival-atan2: 2.0ms (4.1% of total)
ival-sub: 1.0ms (2.1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

simplify29.0ms (0.2%)

Memory
-24.2MiB live, 51.1MiB allocated
Algorithm
1×egg-herbie
Rules
74×*-commutative_binary64
70×+-commutative_binary64
30×sub-neg_binary64
20×neg-sub0_binary64
20×neg-mul-1_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0137393
1236393
2274393
3294393
4305393
5306393
Stop Event
1×saturated
Calls
Call 1
Inputs
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(if (<=.f64 delta #s(literal -287769207549869/147573952589676412928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 7378697629483821/590295810358705651712 binary64)) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1))) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -4574792530279969/73786976294838206464 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 3872340515953109/18889465931478580854784 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -6422418416702717/4722366482869645213696 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 4722366482869645/295147905179352825856 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 #s(literal 2 binary64) phi1)))))) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (cos.f64 delta)) lambda1)))
(if (<=.f64 phi1 #s(literal -50999999999999995583507645301138166031638008430592 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 1 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -2476979795053773/2251799813685248 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 6980579422424269/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -5534023222112865/9223372036854775808 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 2116691824864133/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -3412647653636267/4611686018427387904 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 6980579422424269/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -46000000000000000394316011781371444397386089103360 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 1018517988167243/2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
lambda1
Outputs
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+.f64 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (cos.f64 phi1)) (sin.f64 theta)) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (cos.f64 theta) (*.f64 (sin.f64 delta) (sin.f64 phi1)))))) lambda1)
(+.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 (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 delta))))) lambda1)
(+.f64 lambda1 (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 delta) (cos.f64 phi1)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))) lambda1)
(+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (*.f64 (cos.f64 phi1) (-.f64 (*.f64 (cos.f64 phi1) (cos.f64 delta)) (*.f64 (sin.f64 delta) (sin.f64 phi1))))))
(+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (-.f64 (cos.f64 delta) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(+.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)))))
(if (<=.f64 delta #s(literal -287769207549869/147573952589676412928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 7378697629483821/590295810358705651712 binary64)) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1))) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -287769207549869/147573952589676412928 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (if (<=.f64 delta #s(literal 7378697629483821/590295810358705651712 binary64)) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1))) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -4574792530279969/73786976294838206464 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 3872340515953109/18889465931478580854784 binary64)) (+.f64 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) lambda1) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -4574792530279969/73786976294838206464 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (if (<=.f64 delta #s(literal 3872340515953109/18889465931478580854784 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -6422418416702717/4722366482869645213696 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta))) (if (<=.f64 delta #s(literal 4722366482869645/295147905179352825856 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 #s(literal 2 binary64) phi1)))))) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 theta) (sin.f64 delta)) (cos.f64 phi1)) (cos.f64 delta)))))
(if (<=.f64 delta #s(literal -6422418416702717/4722366482869645213696 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (sin.f64 theta))) (cos.f64 delta))) (if (<=.f64 delta #s(literal 4722366482869645/295147905179352825856 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 delta) (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 (cos.f64 phi1) (*.f64 (sin.f64 delta) (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 (cos.f64 phi1) (*.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)) (cos.f64 delta)) lambda1)))
(if (<=.f64 phi1 #s(literal -50999999999999995583507645301138166031638008430592 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 1 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (sin.f64 delta) (sin.f64 theta))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -50999999999999995583507645301138166031638008430592 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 1 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (+.f64 #s(literal 1 binary64) (*.f64 phi1 (*.f64 phi1 #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -2476979795053773/2251799813685248 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 6980579422424269/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 delta) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -5534023222112865/9223372036854775808 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 2116691824864133/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.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.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -5534023222112865/9223372036854775808 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 2116691824864133/2251799813685248 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.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))))))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -3412647653636267/4611686018427387904 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 6980579422424269/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (*.f64 delta delta)))) (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -3412647653636267/4611686018427387904 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 6980579422424269/4503599627370496 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 (sin.f64 theta) (*.f64 delta (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 delta delta) #s(literal -1/6 binary64))))) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
(if (<=.f64 phi1 #s(literal -46000000000000000394316011781371444397386089103360 binary64)) lambda1 (if (<=.f64 phi1 #s(literal 1018517988167243/2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376 binary64)) (+.f64 lambda1 (atan2.f64 (*.f64 delta (sin.f64 theta)) (-.f64 #s(literal 1 binary64) (*.f64 phi1 phi1)))) lambda1))
lambda1

soundness1.6s (8.8%)

Memory
21.3MiB live, 1 471.4MiB allocated
Rules
18 372×accelerator-lowering-fma.f32
18 372×accelerator-lowering-fma.f64
14 356×accelerator-lowering-fma.f32
14 356×accelerator-lowering-fma.f64
9 718×accelerator-lowering-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
083422661
1292021743
2704921712
0809820789
02405237
18335126
229485083
353325038
475485038
084314804
022125
1101125
2827125
08718120
060214810
1212214347
2437114330
3549014197
4795314197
0800713974
045617087
1154216753
2536716389
0811415829
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
Compiler

Compiled 1 243 to 713 computations (42.6% saved)

preprocess108.0ms (0.6%)

Memory
2.6MiB live, 277.0MiB allocated
Remove

(abs phi2)

Compiler

Compiled 1 340 to 556 computations (58.5% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

Profiling

Loading profile data...