Maksimov and Kolovsky, Equation (3)

Time bar (total: 4.3s)

start0.0ms (0%)

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

analyze398.0ms (9.2%)

Memory
-10.4MiB live, 318.1MiB allocated; 388ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
0%0%99.9%0.1%0%0%0%1
0%0%99.9%0.1%0%0%0%2
0%0%99.9%0.1%0%0%0%3
0%0%99.9%0.1%0%0%0%4
0%0%99.9%0.1%0%0%0%5
37.5%37.4%62.4%0.1%0%0%0%6
37.5%37.4%62.4%0.1%0%0%0%7
43.8%43.7%56.2%0.1%0%0%0%8
43.8%43.7%56.2%0.1%0%0%0%9
43.8%43.7%56.2%0.1%0%0%0%10
46.9%46.8%53%0.1%0%0%0%11
46.9%46.8%53%0.1%0%0%0%12
Compiler

Compiled 26 to 19 computations (26.9% saved)

sample1.4s (33.4%)

Memory
46.4MiB live, 1 287.9MiB allocated; 697ms collecting garbage
Samples
1.1s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 899.0ms
ival-mult!: 466.0ms (51.9% of total)
ival-cos: 194.0ms (21.6% of total)
ival-pow2: 86.0ms (9.6% of total)
ival-div!: 76.0ms (8.5% of total)
ival-sqrt: 55.0ms (6.1% of total)
ival-add!: 20.0ms (2.2% of total)
adjust: 2.0ms (0.2% of total)
Bogosity

explain203.0ms (4.7%)

Memory
15.3MiB live, 258.4MiB allocated; 33ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
460-0-(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
370-0-(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
00-0-(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
00-0-K
00-0-(/.f64 K #s(literal 2 binary64))
00-0-#s(literal 1 binary64)
0136(6.281426107991619e+65 -1.270567558107854e+146 4.466877199038118e+213)0-(cos.f64 (/.f64 K #s(literal 2 binary64)))
00-0-(*.f64 #s(literal 2 binary64) J)
00-0-U
00-0-(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
00-0-(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
00-0-(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
00-0-J
00-0-(*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
00-0-#s(literal 2 binary64)
00-0-#s(literal -2 binary64)
00-0-(*.f64 #s(literal -2 binary64) J)
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
cos.f64(cos.f64 (/.f64 K #s(literal 2 binary64)))sensitivity1360
sqrt.f64(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))oflow-rescue460
↳(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))overflow37
↳(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))overflow37
↳(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))overflow83
↳(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))overflow83
*.f64(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))n*o370
Confusion
Predicted +Predicted -
+830
-9578
Precision
0.46629213483146065
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+8300
-95078
Precision?
0.46629213483146065
Recall?
1.0
Freqs
test
numberfreq
078
1137
241
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
59.0ms512×0valid
Compiler

Compiled 248 to 55 computations (77.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 38.0ms
ival-cos: 12.0ms (31.6% of total)
ival-mult!: 11.0ms (29% of total)
ival-div!: 5.0ms (13.2% of total)
ival-pow2: 5.0ms (13.2% of total)
ival-sqrt: 3.0ms (7.9% of total)
ival-add!: 1.0ms (2.6% of total)
adjust: 0.0ms (0% of total)

preprocess46.0ms (1.1%)

Memory
-29.7MiB live, 16.0MiB allocated; 4ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
075246
1206240
2628240
32463240
47843240
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶69.3%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Symmetry

(abs K)

(abs U)

(negabs J)

Compiler

Compiled 48 to 34 computations (29.2% saved)

series52.0ms (1.2%)

Memory
15.3MiB live, 60.2MiB allocated; 5ms collecting garbage
Counts
17 → 88
Calls
Call 1
Inputs
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) J)
#s(literal -2 binary64)
J
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
#s(literal 1 binary64)
(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal 2 binary64) J)
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (pow J 2)) (pow J 2))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 J)))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* 1/4 (* J (pow K 2))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (/ 1 (pow U 2))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
Calls

9 calls:

TimeVariablePointExpression
7.0ms
K
@inf
((* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (cos (/ K 2))) (* -2 J) -2 J (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J))
7.0ms
U
@0
((* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (cos (/ K 2))) (* -2 J) -2 J (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J))
7.0ms
K
@0
((* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (cos (/ K 2))) (* -2 J) -2 J (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J))
6.0ms
J
@0
((* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (cos (/ K 2))) (* -2 J) -2 J (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J))
6.0ms
J
@inf
((* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (cos (/ K 2))) (* -2 J) -2 J (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J))

rewrite179.0ms (4.2%)

Memory
6.2MiB live, 186.0MiB allocated; 25ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
05254670
05424353
130734183
085944014
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
105 → 220
Calls
Call 1
Inputs
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) J)
#s(literal -2 binary64)
J
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
#s(literal 1 binary64)
(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal 2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (pow J 2)) (pow J 2))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (* -2 J)))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* 1/4 (* J (pow K 2))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* -1/192 (* J (pow K 2))) (* 1/4 J))))))
#s(approx (* (* -2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -2 J) (* (pow K 2) (+ (* 1/4 J) (* (pow K 2) (+ (* -1/192 J) (* 1/23040 (* J (pow K 2))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (/ 1 (pow U 2))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
Outputs
(*.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))))
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 J #s(literal -2 binary64)))
(*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) J)
(*.f64 #s(literal 2 binary64) #s(literal -1 binary64))
(neg.f64 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal 1 binary64) #s(literal -1 binary64))
(fma.f64 #s(literal 1 binary64) #s(literal -1 binary64) #s(literal -1 binary64))
(+.f64 #s(literal -1 binary64) #s(literal -1 binary64))
#s(literal -2 binary64)
(pow.f64 J #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 J #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 J) #s(literal 1 binary64)))
J
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (/.f64 K #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (*.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 K)) #s(literal 2 binary64))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
(/.f64 K #s(literal 2 binary64))
(pow.f64 K #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 K #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 K) #s(literal 1 binary64)))
K
(*.f64 #s(literal 2 binary64) #s(literal 1 binary64))
(/.f64 #s(literal 8 binary64) #s(literal 4 binary64))
(/.f64 #s(literal -4 binary64) #s(literal -2 binary64))
(/.f64 #s(literal 4 binary64) #s(literal 2 binary64))
(neg.f64 #s(literal -2 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
#s(literal 2 binary64)
(pow.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (hypot.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal -1/2 binary64)))
(cosh.f64 (asinh.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) #s(literal -1 binary64))
(hypot.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(exp.f64 (*.f64 (log1p.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(fma.f64 (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(fma.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal -1 binary64) #s(literal -1 binary64))
(pow.f64 (*.f64 U U) #s(literal 0 binary64))
(pow.f64 U #s(literal 0 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 9 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 3/2 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 6 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 4 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 2 binary64))
(pow.f64 J #s(literal 0 binary64))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 8 binary64) #s(literal 8 binary64))
(/.f64 (neg.f64 (*.f64 J J)) (neg.f64 (*.f64 J J)))
(/.f64 #s(literal 4 binary64) #s(literal 4 binary64))
(/.f64 (*.f64 J J) (*.f64 J J))
(/.f64 #s(literal 2 binary64) #s(literal 2 binary64))
(/.f64 #s(literal -2 binary64) #s(literal -2 binary64))
(neg.f64 #s(literal -1 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) #s(literal 0 binary64))
(cosh.f64 #s(literal 0 binary64))
(sqrt.f64 #s(literal 1 binary64))
(fabs.f64 #s(literal 1 binary64))
(exp.f64 (-.f64 (*.f64 (log.f64 J) #s(literal 2 binary64)) (*.f64 (log.f64 J) #s(literal 2 binary64))))
(exp.f64 #s(literal 0 binary64))
(+.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(+.f64 #s(literal 1 binary64) #s(literal 0 binary64))
#s(literal 1 binary64)
(*.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (exp.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (*.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (neg.f64 U)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (*.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) U) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (*.f64 (neg.f64 U) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (*.f64 U (/.f64 U (*.f64 #s(literal 2 binary64) J))) (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 U) U) (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (*.f64 U (neg.f64 U)) (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (*.f64 U U) (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (*.f64 U U) (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(/.f64 (neg.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J))) (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 U)) (neg.f64 (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (neg.f64 U) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64)))
(pow.f64 U #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 U #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 U) #s(literal 1 binary64)))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))
(*.f64 #s(literal 2 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(+.f64 J J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* -2 J) (cos (/ K 2))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* -2 J) (*.f64 J #s(literal -2 binary64)))
#s(approx J J)
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (pow.f64 (neg.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) #s(literal 3 binary64))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (/.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) (*.f64 J J)) #s(literal 1 binary64)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* 2 J) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 U U)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(literal 1 binary64))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 #s(literal -1/256 binary64) (*.f64 (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (/.f64 (*.f64 U U) J)) (fma.f64 (*.f64 J (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (/.f64 (*.f64 U U) (*.f64 J J)) (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 #s(literal -1/256 binary64) (*.f64 (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (/.f64 (*.f64 U U) J)) (fma.f64 (*.f64 J (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* -2 J) (cos (/ K 2))) (*.f64 J #s(literal -2 binary64)))
#s(approx (* (* -2 J) (cos (/ K 2))) (fma.f64 (*.f64 (*.f64 K K) J) #s(literal 1/4 binary64) (*.f64 J #s(literal -2 binary64))))
#s(approx (* (* -2 J) (cos (/ K 2))) (fma.f64 (fma.f64 #s(literal -1/192 binary64) (*.f64 (*.f64 K K) J) (*.f64 #s(literal 1/4 binary64) J)) (*.f64 K K) (*.f64 J #s(literal -2 binary64))))
#s(approx (* (* -2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/23040 binary64) (*.f64 (*.f64 K K) J) (*.f64 #s(literal -1/192 binary64) J)) (*.f64 K K) (*.f64 #s(literal 1/4 binary64) J)) (*.f64 K K) (*.f64 J #s(literal -2 binary64))))
#s(approx (cos (/ K 2)) #s(literal 1 binary64))
#s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx K K)
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (pow.f64 (*.f64 U K) #s(literal 2 binary64)) (*.f64 J J))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) (*.f64 J J))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (/.f64 (*.f64 U U) (*.f64 J J)) (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K)) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) (*.f64 J J))) (pow.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (*.f64 U K) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 K K)) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (/.f64 (*.f64 U U) (*.f64 J J)) (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) (*.f64 K K) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (*.f64 U K) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 K K)) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (/.f64 (*.f64 U U) (*.f64 J J)) (fma.f64 (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) (*.f64 K K) (*.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal -1/24 binary64)))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 U U)) (*.f64 J J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 K K) U) J) #s(literal 1/16 binary64) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 K K)) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) (*.f64 (/.f64 U J) #s(literal 1/16 binary64))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (fma.f64 (/.f64 U J) #s(literal -1/46080 binary64) (fma.f64 #s(literal 1/3072 binary64) (/.f64 U J) (*.f64 (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) #s(literal 1/8 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/16 binary64))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (*.f64 (*.f64 K K) J) #s(literal -1/4 binary64) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) J) #s(literal 1/192 binary64) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/23040 binary64) (*.f64 (*.f64 K K) J) (*.f64 #s(literal 1/192 binary64) J)) (*.f64 K K) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx U U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (fma.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)) #s(literal 2 binary64)) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))

eval41.0ms (0.9%)

Memory
9.3MiB live, 59.8MiB allocated; 13ms collecting garbage
Compiler

Compiled 9 440 to 1 362 computations (85.6% saved)

prune9.0ms (0.2%)

Memory
17.4MiB live, 17.4MiB allocated; 0ms collecting garbage
Pruning

8 alts after pruning (8 fresh and 0 done)

PrunedKeptTotal
New2438251
Fresh000
Picked101
Done000
Total2448252
Accuracy
99.9%
Counts
252 → 8
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶68.9%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
57.0%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U #s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))))
▶86.3%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
▶30.7%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
47.5%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
▶15.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
41.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
▶16.5%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Compiler

Compiled 514 to 364 computations (29.2% saved)

series106.0ms (2.5%)

Memory
11.9MiB live, 147.5MiB allocated; 18ms collecting garbage
Counts
51 → 299
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
#s(literal -1 binary64)
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(/.f64 (*.f64 U U) (*.f64 J J))
(*.f64 U U)
(*.f64 J J)
#s(literal 1/4 binary64)
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)))
(neg.f64 U)
(-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))
(*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64))
(*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) J)
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
Outputs
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (/ U (* 2 J)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (/ (+ (* 1/4 (pow U 2)) (pow J 2)) (pow J 2))))
#s(approx (/ (* U U) (* J J)) #s(hole binary64 (/ (pow U 2) (pow J 2))))
#s(approx (* J J) #s(hole binary64 (pow J 2)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 U))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ U (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 -1))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) U)) (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) U)) (* 2 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 3))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 5))) (* 2 (/ (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (pow U 3))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (pow J 2)) (pow J 2))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* (pow J 2) (+ (* 2 (/ (pow (cos (* 1/2 K)) 2) U)) (/ U (pow J 2))))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (* (pow J 2) (- (* -2 (/ (pow (cos (* 1/2 K)) 2) (pow U 2))) (/ 1 (pow J 2))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (+ (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (+ (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (+ (* -1/512 (/ (* (pow U 6) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/512 (/ (* (pow U 6) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* -1/2 (/ (* (pow J 2) (pow K 2)) U)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* (pow K 2) (+ (* -1/2 (/ (pow J 2) U)) (* 1/24 (/ (* (pow J 2) (pow K 2)) U)))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* (pow K 2) (+ (* -1/2 (/ (pow J 2) U)) (* (pow K 2) (+ (* -1/720 (/ (* (pow J 2) (pow K 2)) U)) (* 1/24 (/ (pow J 2) U)))))))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 1/2 (/ (* (pow J 2) (pow K 2)) (pow U 2)))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/2 (/ (pow J 2) (pow U 2)))))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* 1/2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (pow J 2) (pow U 2))) (* 1/720 (/ (* (pow J 2) (pow K 2)) (pow U 2)))))))) 1)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (* -2 (/ (pow J 2) (pow U 2)))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* 1/2 (/ (* (pow J 2) (pow K 2)) (pow U 2))))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/2 (/ (pow J 2) (pow U 2))))))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* 1/2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (pow J 2) (pow U 2))) (* 1/720 (/ (* (pow J 2) (pow K 2)) (pow U 2))))))))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (/ (pow J 2) (pow U 2))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* -1/4 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (/ (pow J 2) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* (pow K 2) (+ (* -1/4 (/ (pow J 2) (pow U 2))) (* 1/48 (/ (* (pow J 2) (pow K 2)) (pow U 2))))) (/ (pow J 2) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* (pow K 2) (+ (* -1/4 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/1440 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/48 (/ (pow J 2) (pow U 2))))))) (/ (pow J 2) (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (/ 1 (pow U 2))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* -1/4 (/ (pow K 2) (pow U 2))) (/ 1 (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* (pow K 2) (- (* 1/48 (/ (pow K 2) (pow U 2))) (* 1/4 (/ 1 (pow U 2))))) (/ 1 (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/1440 (/ (pow K 2) (pow U 2))) (* 1/48 (/ 1 (pow U 2))))) (* 1/4 (/ 1 (pow U 2))))) (/ 1 (pow U 2)))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (/ 1 U)))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* -1/8 (/ (pow K 2) U)) (/ 1 U))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* (pow K 2) (- (* 1/384 (/ (pow K 2) U)) (* 1/8 (/ 1 U)))) (/ 1 U))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/46080 (/ (pow K 2) U)) (* 1/384 (/ 1 U)))) (* 1/8 (/ 1 U)))) (/ 1 U))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -1 (* (* J (* K (cos (* 1/2 (PI))))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -2 (* K (+ (* -1/8 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (* (pow U 2) (sin (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))) (* -1 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -1 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -2 (* K (+ (* -1/48 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/64 (* (/ (* (pow U 2) (cos (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))) (* -2 (+ (* -1/8 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (* (pow U 2) (sin (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/8 (* K (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (/ (pow (cos (* 1/2 K)) 2) (pow U 2))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (/ (cos (* 1/2 K)) U)))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (/ (+ (* 2 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (pow U 2)) U)))
#s(approx (neg U) #s(hole binary64 (* -1 U)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (/ (+ (* -2 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* -1 (pow U 2))) (pow U 2))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* J (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* (pow U 2) (+ (* -1/4 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* J (pow (cos (* 1/2 K)) 2)))) (* 1/64 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 3) (pow (cos (* 1/2 K)) 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* (pow U 2) (+ (* -1/4 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* J (pow (cos (* 1/2 K)) 2)))) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 5) (pow (cos (* 1/2 K)) 6)))) (* 1/64 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* (pow J 3) (pow (cos (* 1/2 K)) 4)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* U (+ 1 (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -4 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -4 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
Calls

9 calls:

TimeVariablePointExpression
21.0ms
J
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+ (* (/ (* U U) (* J J)) 1/4) 1) (/ (* U U) (* J J)) (* U U) (* J J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (pow (/ (cos (* 1/2 K)) U) 2) (/ (cos (* 1/2 K)) U) (cos (* 1/2 K)) (* 1/2 K) 1/2 (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) (sin (/ K 2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))
13.0ms
U
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+ (* (/ (* U U) (* J J)) 1/4) 1) (/ (* U U) (* J J)) (* U U) (* J J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (pow (/ (cos (* 1/2 K)) U) 2) (/ (cos (* 1/2 K)) U) (cos (* 1/2 K)) (* 1/2 K) 1/2 (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) (sin (/ K 2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))
13.0ms
K
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+ (* (/ (* U U) (* J J)) 1/4) 1) (/ (* U U) (* J J)) (* U U) (* J J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (pow (/ (cos (* 1/2 K)) U) 2) (/ (cos (* 1/2 K)) U) (cos (* 1/2 K)) (* 1/2 K) 1/2 (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) (sin (/ K 2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))
9.0ms
K
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+ (* (/ (* U U) (* J J)) 1/4) 1) (/ (* U U) (* J J)) (* U U) (* J J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (pow (/ (cos (* 1/2 K)) U) 2) (/ (cos (* 1/2 K)) U) (cos (* 1/2 K)) (* 1/2 K) 1/2 (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) (sin (/ K 2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))
9.0ms
J
@inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+ (* (/ (* U U) (* J J)) 1/4) 1) (/ (* U U) (* J J)) (* U U) (* J J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (pow (/ (cos (* 1/2 K)) U) 2) (/ (cos (* 1/2 K)) U) (cos (* 1/2 K)) (* 1/2 K) 1/2 (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) (sin (/ K 2)) (cos (/ (PI) 2)) (/ (PI) 2) (PI) (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/ U (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))

rewrite238.0ms (5.5%)

Memory
-40.7MiB live, 249.5MiB allocated; 37ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0132816853
0138715114
1778215114
0804714609
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
350 → 578
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
#s(literal -1 binary64)
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(/.f64 (*.f64 U U) (*.f64 J J))
(*.f64 U U)
(*.f64 J J)
#s(literal 1/4 binary64)
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64)))
(neg.f64 U)
(-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))
(*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64))
(*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) J)
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (/.f64 K #s(literal 2 binary64)))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
(pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (/ U (* 2 J)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (/ (+ (* 1/4 (pow U 2)) (pow J 2)) (pow J 2))))
#s(approx (/ (* U U) (* J J)) #s(hole binary64 (/ (pow U 2) (pow J 2))))
#s(approx (* J J) #s(hole binary64 (pow J 2)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 U))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ U (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 -1))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) U)) (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) U)) (* 2 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 3))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))) (* (pow J 2) (+ (* -2 (/ (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 5))) (* 2 (/ (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (pow U 3))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (pow U 2) (pow (cos (* 1/2 K)) 2))) (pow J 2)) (pow J 2))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* (pow J 2) (+ (* 2 (/ (pow (cos (* 1/2 K)) 2) U)) (/ U (pow J 2))))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (* (pow J 2) (- (* -2 (/ (pow (cos (* 1/2 K)) 2) (pow U 2))) (/ 1 (pow J 2))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (+ (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (+ (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (+ (* -1/512 (/ (* (pow U 6) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 1))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (* (pow U 4) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/512 (/ (* (pow U 6) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (+ (* 1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (* 2 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* -1/2 (/ (* (pow J 2) (pow K 2)) U)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* (pow K 2) (+ (* -1/2 (/ (pow J 2) U)) (* 1/24 (/ (* (pow J 2) (pow K 2)) U)))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (+ (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))) (* (pow K 2) (+ (* -1/2 (/ (pow J 2) U)) (* (pow K 2) (+ (* -1/720 (/ (* (pow J 2) (pow K 2)) U)) (* 1/24 (/ (pow J 2) U)))))))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 1/2 (/ (* (pow J 2) (pow K 2)) (pow U 2)))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/2 (/ (pow J 2) (pow U 2)))))) 1)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* 1/2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (pow J 2) (pow U 2))) (* 1/720 (/ (* (pow J 2) (pow K 2)) (pow U 2)))))))) 1)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (* -2 (/ (pow J 2) (pow U 2)))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* 1/2 (/ (* (pow J 2) (pow K 2)) (pow U 2))))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/2 (/ (pow J 2) (pow U 2))))))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) #s(hole binary64 (+ (* -2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* 1/2 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/24 (/ (pow J 2) (pow U 2))) (* 1/720 (/ (* (pow J 2) (pow K 2)) (pow U 2))))))))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (/ (pow J 2) (pow U 2))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* -1/4 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (/ (pow J 2) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* (pow K 2) (+ (* -1/4 (/ (pow J 2) (pow U 2))) (* 1/48 (/ (* (pow J 2) (pow K 2)) (pow U 2))))) (/ (pow J 2) (pow U 2)))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) #s(hole binary64 (+ (* (pow K 2) (+ (* -1/4 (/ (pow J 2) (pow U 2))) (* (pow K 2) (+ (* -1/1440 (/ (* (pow J 2) (pow K 2)) (pow U 2))) (* 1/48 (/ (pow J 2) (pow U 2))))))) (/ (pow J 2) (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (/ 1 (pow U 2))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* -1/4 (/ (pow K 2) (pow U 2))) (/ 1 (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* (pow K 2) (- (* 1/48 (/ (pow K 2) (pow U 2))) (* 1/4 (/ 1 (pow U 2))))) (/ 1 (pow U 2)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/1440 (/ (pow K 2) (pow U 2))) (* 1/48 (/ 1 (pow U 2))))) (* 1/4 (/ 1 (pow U 2))))) (/ 1 (pow U 2)))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (/ 1 U)))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* -1/8 (/ (pow K 2) U)) (/ 1 U))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* (pow K 2) (- (* 1/384 (/ (pow K 2) U)) (* 1/8 (/ 1 U)))) (/ 1 U))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (+ (* (pow K 2) (- (* (pow K 2) (+ (* -1/46080 (/ (pow K 2) U)) (* 1/384 (/ 1 U)))) (* 1/8 (/ 1 U)))) (/ 1 U))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -1 (* (* J (* K (cos (* 1/2 (PI))))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -2 (* K (+ (* -1/8 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (* (pow U 2) (sin (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))) (* -1 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -1 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* K (+ (* -2 (* K (+ (* -1/48 (* (* J (cos (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/64 (* (/ (* (pow U 2) (cos (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))) (* -2 (+ (* -1/8 (* (* J (sin (* 1/2 (PI)))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (* (pow U 2) (sin (* 1/2 (PI)))) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/8 (* K (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2)))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (+ 1 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) (pow U 2)) (pow J 2))) (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))) (* 1/16 (/ (pow U 2) (pow J 2))))))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) #s(hole binary64 (+ (* 1/4 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* 1/16 (/ (pow U 2) (pow J 2))) (* (pow K 2) (+ (* -1/4 (* (pow K 2) (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))) (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) #s(hole binary64 (/ (pow (cos (* 1/2 K)) 2) (pow U 2))))
#s(approx (/ (cos (* 1/2 K)) U) #s(hole binary64 (/ (cos (* 1/2 K)) U)))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))
#s(approx (sin (/ K 2)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (/ (+ (* 2 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (pow U 2)) U)))
#s(approx (neg U) #s(hole binary64 (* -1 U)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(hole binary64 (/ (+ (* -2 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* -1 (pow U 2))) (pow U 2))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* -1/4 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* J (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* (pow U 2) (+ (* -1/4 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* J (pow (cos (* 1/2 K)) 2)))) (* 1/64 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 3) (pow (cos (* 1/2 K)) 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (* (pow U 2) (+ (* -1/4 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* J (pow (cos (* 1/2 K)) 2)))) (* (pow U 2) (+ (* -1/512 (/ (* (pow U 2) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (* (pow J 5) (pow (cos (* 1/2 K)) 6)))) (* 1/64 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (* (pow J 3) (pow (cos (* 1/2 K)) 4)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) #s(hole binary64 (* U (+ 1 (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -4 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (* U (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))) (cos (* 1/2 K)))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4)))))))))
#s(approx (* (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -4 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 5) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (* (cos (* 1/2 K)) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 2))) (+ (* -1 (/ (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))) (cos (* 1/2 K)))) (* 2 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 3) (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))) (pow U 4))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
Outputs
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)) (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (*.f64 #s(literal -2 binary64) (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
J
(neg.f64 #s(literal 2 binary64))
#s(literal -2 binary64)
(*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (-.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(fma.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
(/.f64 K #s(literal 2 binary64))
K
(*.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (/.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) #s(literal 1 binary64))
(/.f64 #s(literal 4 binary64) #s(literal 2 binary64))
(neg.f64 #s(literal -2 binary64))
#s(literal 2 binary64)
(pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))))
(cosh.f64 (asinh.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(cosh.f64 (asinh.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(cosh.f64 (asinh.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 1 binary64))
(hypot.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(hypot.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(hypot.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(hypot.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(hypot.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(hypot.f64 #s(literal 1 binary64) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(hypot.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(hypot.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) #s(literal -1 binary64))
(neg.f64 #s(literal 1 binary64))
#s(literal -1 binary64)
(/.f64 (neg.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J))) (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 U) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (/.f64 U #s(literal 2 binary64)) J)
(/.f64 (neg.f64 U) (neg.f64 (*.f64 #s(literal 2 binary64) J)))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(+.f64 J J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(*.f64 #s(literal -2 binary64) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J))
(*.f64 J (*.f64 #s(literal -2 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(pow.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) #s(literal 1 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal 1 binary64)))))
(fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))
(-.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 U U)) (*.f64 J J)))
(+.f64 (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))
(*.f64 (/.f64 U J) (/.f64 U J))
(*.f64 U (/.f64 U (*.f64 J J)))
(/.f64 (neg.f64 (*.f64 U U)) (neg.f64 (*.f64 J J)))
(/.f64 (/.f64 (*.f64 U U) J) J)
(/.f64 (*.f64 U U) (*.f64 J J))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)))
(*.f64 (fabs.f64 U) (fabs.f64 U))
(*.f64 (neg.f64 U) (neg.f64 U))
(*.f64 U U)
(pow.f64 U #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 U) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))))
(*.f64 (pow.f64 J #s(literal 1 binary64)) (pow.f64 J #s(literal 1 binary64)))
(*.f64 (neg.f64 J) (neg.f64 J))
(*.f64 (fabs.f64 J) (fabs.f64 J))
(*.f64 J J)
(pow.f64 J #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 J) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 J) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 J) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/4 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/4 binary64))
#s(literal 1/4 binary64)
(*.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) #s(literal -1 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(neg.f64 #s(literal -1 binary64))
(fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) #s(literal 0 binary64))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(cosh.f64 #s(literal 0 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(sqrt.f64 #s(literal 1 binary64))
(fabs.f64 #s(literal -1 binary64))
(exp.f64 #s(literal 0 binary64))
(+.f64 #s(literal 1 binary64) #s(literal 0 binary64))
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal -1 binary64)) (neg.f64 U)))
(*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal -1 binary64)) (neg.f64 U))
(*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal -1 binary64)))
(neg.f64 (*.f64 U (fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal -1 binary64))))
(*.f64 U #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) U)
(neg.f64 U)
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64))) #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) #s(literal 1 binary64)))))
(fma.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64) #s(literal -1 binary64))
(fma.f64 (*.f64 J J) (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) #s(literal -2 binary64)) #s(literal -1 binary64))
(fma.f64 #s(literal -2 binary64) (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -1 binary64))
(-.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) #s(literal 1 binary64))
(+.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64)) #s(literal -1 binary64))
(*.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)) #s(literal -2 binary64))
(*.f64 (*.f64 J J) (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) #s(literal -2 binary64)))
(*.f64 #s(literal -2 binary64) (*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J)))
(*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)) (*.f64 J J))
(*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64)))
(*.f64 J (*.f64 J (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))))
(*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 1 binary64)) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 1 binary64)))
(*.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U))
(pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (neg.f64 U))
(/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)) (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (*.f64 #s(literal -2 binary64) (*.f64 (hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 #s(literal -2 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(fma.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J)))
(+.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (-.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(fma.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 0 binary64) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))))
(+.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(sin.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 #s(literal 0 binary64) #s(literal 2 binary64))
(sinh.f64 #s(literal 0 binary64))
(neg.f64 #s(literal 0 binary64))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 #s(literal 0 binary64) #s(literal 0 binary64))
(cos.f64 (neg.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 #s(literal 0 binary64) #s(literal 0 binary64))
#s(literal 0 binary64)
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (PI.f64)) (sqrt.f64 (PI.f64)))
(*.f64 (*.f64 (cbrt.f64 (PI.f64)) (cbrt.f64 (PI.f64))) (cbrt.f64 (PI.f64)))
(pow.f64 (PI.f64) #s(literal 1 binary64))
(cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))
(exp.f64 (log.f64 (PI.f64)))
(+.f64 (cosh.f64 (log.f64 (PI.f64))) (sinh.f64 (log.f64 (PI.f64))))
(log.f64 (exp.f64 (PI.f64)))
(PI.f64)
(*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) #s(literal -1 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(neg.f64 #s(literal -1 binary64))
(fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) #s(literal 0 binary64))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(cosh.f64 #s(literal 0 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(sqrt.f64 #s(literal 1 binary64))
(fabs.f64 #s(literal -1 binary64))
(exp.f64 #s(literal 0 binary64))
(+.f64 #s(literal 1 binary64) #s(literal 0 binary64))
#s(literal 1 binary64)
(pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))))
(cosh.f64 (asinh.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(cosh.f64 (asinh.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(cosh.f64 (asinh.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 1 binary64))
(hypot.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(hypot.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(hypot.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(hypot.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal -1 binary64))
(hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(hypot.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal -1 binary64))
(hypot.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(hypot.f64 #s(literal 1 binary64) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal 1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(hypot.f64 #s(literal -1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(hypot.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))))))
(fma.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) #s(literal -1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (/.f64 U (*.f64 #s(literal 2 binary64) J))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J))) (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (neg.f64 U) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) J))
(*.f64 #s(literal 2 binary64) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* J -2) (*.f64 #s(literal -2 binary64) J))
#s(approx J J)
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))))) (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64)))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (/ U (* 2 J)) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* 2 J) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 U #s(literal -3 binary64)) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -4 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64)))) (*.f64 J J)) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (*.f64 J J) U)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 J J) (pow.f64 U #s(literal 3 binary64))) #s(literal -1 binary64) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64))) (pow.f64 U #s(literal -3 binary64))) (*.f64 J J) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) (/.f64 (fma.f64 (*.f64 U U) #s(literal 1/4 binary64) (*.f64 J J)) (*.f64 J J)))
#s(approx (/ (* U U) (* J J)) (*.f64 (/.f64 U J) (/.f64 U J)))
#s(approx (* J J) (*.f64 J J))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) U)
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) #s(literal -1 binary64))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 U (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) U) #s(literal -2 binary64) (neg.f64 (*.f64 U (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 (*.f64 U (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 5 binary64))) #s(literal -4 binary64))) (*.f64 J J) (*.f64 (/.f64 (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 (*.f64 U (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* J -2) (*.f64 #s(literal -2 binary64) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64)))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (/.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 J J)) (*.f64 J J)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 U U)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(literal 1 binary64))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 U U)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 U U)) (*.f64 J J)) #s(literal 2 binary64)) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))) #s(literal 2 binary64))) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal -1/512 binary64) (/.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))))) #s(literal 2 binary64)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(literal 1 binary64))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal 2 binary64) (/.f64 U (*.f64 J J))) (*.f64 J J)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)) (pow.f64 J #s(literal -2 binary64))) (*.f64 J J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal -2 binary64) (fma.f64 (*.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal -2 binary64) (fma.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (fma.f64 (*.f64 (pow.f64 U #s(literal 6 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)))) #s(literal -1/512 binary64) (*.f64 (*.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) #s(literal 1/64 binary64))))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(literal 1 binary64))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) #s(literal 1 binary64))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (*.f64 U U) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 2 binary64)) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) #s(literal 2 binary64)) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))) #s(literal 2 binary64)) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (*.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (fma.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (*.f64 (pow.f64 U #s(literal 4 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (fma.f64 #s(literal 1/512 binary64) (*.f64 (pow.f64 U #s(literal 6 binary64)) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)))) (fma.f64 (*.f64 (*.f64 U U) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 U U) (/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) (*.f64 J J)))))) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 #s(literal -1/46080 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 U U) (/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) (*.f64 J J)))))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (cos (/ K 2)) #s(literal 1 binary64))
#s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx K K)
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (pow.f64 (*.f64 K U) #s(literal 2 binary64)) (*.f64 J J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 U U) (/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) (*.f64 J J)))))) (*.f64 K K)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 K K) U) J) #s(literal 1/16 binary64) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 K K)) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (/.f64 U J) (fma.f64 #s(literal 1/3072 binary64) (/.f64 U J) (*.f64 (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) #s(literal 1/8 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)))) (*.f64 K K) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 U U) (/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) (*.f64 J J)))))) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) U) #s(literal -1/2 binary64) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) U) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 J J) U))) (*.f64 K K))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) (*.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) U) (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 J J) U))) (*.f64 K K) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 J J) U))) (*.f64 K K))))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))) #s(literal 1 binary64)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (-.f64 (fma.f64 (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))) #s(literal 1 binary64)))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (-.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/720 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))) #s(literal 1 binary64)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U)))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (fma.f64 (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))))
#s(approx (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/720 binary64) (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 (*.f64 #s(literal -1/24 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (/.f64 (*.f64 J J) (*.f64 U U)))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -1/4 binary64) (/.f64 (*.f64 J J) (*.f64 U U))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (fma.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) #s(literal 1/48 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 J J) (*.f64 U U))))
#s(approx (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 J K) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -1/1440 binary64) (/.f64 (*.f64 #s(literal 1/48 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 J J)) (*.f64 U U))) (*.f64 K K) (/.f64 (*.f64 J J) (*.f64 U U))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) (pow.f64 U #s(literal -2 binary64)))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) (fma.f64 (/.f64 (*.f64 K K) (*.f64 U U)) #s(literal -1/4 binary64) (pow.f64 U #s(literal -2 binary64))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) (fma.f64 (fma.f64 (/.f64 (*.f64 K K) (*.f64 U U)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 U #s(literal -2 binary64)))) (*.f64 K K) (pow.f64 U #s(literal -2 binary64))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 K K) (*.f64 U U)) #s(literal -1/1440 binary64) (*.f64 (pow.f64 U #s(literal -2 binary64)) #s(literal 1/48 binary64))) (*.f64 K K) (*.f64 #s(literal -1/4 binary64) (pow.f64 U #s(literal -2 binary64)))) (*.f64 K K) (pow.f64 U #s(literal -2 binary64))))
#s(approx (/ (cos (* 1/2 K)) U) (pow.f64 U #s(literal -1 binary64)))
#s(approx (/ (cos (* 1/2 K)) U) (fma.f64 (/.f64 (*.f64 K K) U) #s(literal -1/8 binary64) (pow.f64 U #s(literal -1 binary64))))
#s(approx (/ (cos (* 1/2 K)) U) (fma.f64 (-.f64 (*.f64 (/.f64 (*.f64 K K) U) #s(literal 1/384 binary64)) (/.f64 #s(literal 1/8 binary64) U)) (*.f64 K K) (pow.f64 U #s(literal -1 binary64))))
#s(approx (/ (cos (* 1/2 K)) U) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 K K) U) #s(literal -1/46080 binary64) (/.f64 #s(literal 1/384 binary64) U)) (*.f64 K K)) (/.f64 #s(literal 1/8 binary64) U)) (*.f64 K K) (pow.f64 U #s(literal -1 binary64))))
#s(approx (cos (* 1/2 K)) #s(literal 1 binary64))
#s(approx (cos (* 1/2 K)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (* 1/2 K) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (neg.f64 (*.f64 (*.f64 J K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J)) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J)) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) K (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J)) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) K (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 U U)) J)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J)) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) K (*.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J)) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) K (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (fma.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (*.f64 (*.f64 J K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* -2 J) (+ (* (sin (/ K 2)) (cos (/ (PI) 2))) (* (cos (/ K 2)) (sin (/ (PI) 2))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (*.f64 (*.f64 #s(literal 1/4 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (cos (/ K 2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (cos (/ K 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (cos (/ K 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (sin (/ K 2)) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (sin (/ K 2)) (*.f64 (fma.f64 #s(literal -1/48 binary64) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (/ K 2)) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (/ K 2)) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/645120 binary64) (*.f64 K K) #s(literal 1/3840 binary64)) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 K K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/384 binary64) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1/46080 binary64) (*.f64 #s(literal 1/384 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (pow.f64 (*.f64 K U) #s(literal 2 binary64)) (*.f64 J J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 U U) (/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)) (*.f64 J J)))))) (*.f64 K K)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 U J) (/.f64 U J))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (*.f64 K U) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 K K)) (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) (*.f64 K K) (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))) #s(literal 1 binary64)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J)))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (*.f64 K U) #s(literal 2 binary64)) (*.f64 J J)) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 K K)) (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))
#s(approx (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 (/.f64 U J) (/.f64 U J)) (fma.f64 (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/192 binary64) (*.f64 U U)) (*.f64 J J)))) (*.f64 K K) (*.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal -1/24 binary64)))) (*.f64 K K) (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 U U)) (*.f64 J J))) (*.f64 K K) (/.f64 (*.f64 (*.f64 U U) #s(literal 1/4 binary64)) (*.f64 J J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 K K) U) J) #s(literal 1/16 binary64) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 K K)) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (/.f64 U J) (fma.f64 #s(literal 1/3072 binary64) (/.f64 U J) (*.f64 (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) #s(literal 1/8 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)))) (*.f64 K K) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (*.f64 (*.f64 K K) J) #s(literal -1/4 binary64) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) J) #s(literal 1/192 binary64) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/23040 binary64) (*.f64 (*.f64 K K) J) (*.f64 #s(literal 1/192 binary64) J)) (*.f64 K K) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (pow (/ (cos (* 1/2 K)) U) 2) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)))
#s(approx (/ (cos (* 1/2 K)) U) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U))
#s(approx (cos (* 1/2 K)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))) (*.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J)) #s(literal -2 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sin (/ K 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (cos (/ K 2)) (sin (/ (PI) 2))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64))) #s(literal -1/512 binary64) (/.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal -1/128 binary64) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (/.f64 (pow.f64 J #s(literal -4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (*.f64 U U) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/1024 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) (/.f64 #s(literal 1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx U U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64))) #s(literal -1/512 binary64) (/.f64 #s(literal 1/64 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 J #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 J #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 J #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 J #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (* U U) (*.f64 U U))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (/.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) #s(literal 2 binary64) (*.f64 U U)) U))
#s(approx (neg U) (neg.f64 U))
#s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (/.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) #s(literal -2 binary64) (neg.f64 (*.f64 U U))) (*.f64 U U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (/.f64 (*.f64 U U) J) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 3 binary64))) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))) #s(literal 1/64 binary64) (*.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) J)) #s(literal -1/4 binary64))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 5 binary64))) (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)))) #s(literal -1/512 binary64) (*.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (*.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)))) #s(literal 1/64 binary64))) (*.f64 U U) (*.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) J)) #s(literal -1/4 binary64))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/1024 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) (/.f64 #s(literal 1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (pow.f64 U #s(literal 4 binary64))) #s(literal 1 binary64))) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U)))) #s(literal 1 binary64)) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (+ (* (/ (* U U) (* J J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))
#s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal 2 binary64) #s(literal 1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64))) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) U)
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (pow.f64 U #s(literal 4 binary64))) #s(literal 1 binary64)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 U (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (*.f64 U U)) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))

eval93.0ms (2.2%)

Memory
41.5MiB live, 131.6MiB allocated; 12ms collecting garbage
Compiler

Compiled 30 442 to 3 149 computations (89.7% saved)

prune31.0ms (0.7%)

Memory
-3.8MiB live, 48.0MiB allocated; 11ms collecting garbage
Pruning

22 alts after pruning (20 fresh and 2 done)

PrunedKeptTotal
New57819597
Fresh213
Picked325
Done000
Total58322605
Accuracy
100.0%
Counts
605 → 22
Alt Table
Click to see full alt table
StatusAccuracyProgram
68.6%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
67.9%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 (*.f64 (cbrt.f64 (PI.f64)) (cbrt.f64 (PI.f64))) (cbrt.f64 (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
68.2%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 (sqrt.f64 (PI.f64)) (sqrt.f64 (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
68.5%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
68.9%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
86.2%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
▶86.3%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
57.0%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
▶30.4%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
13.9%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
47.5%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
✓30.7%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
▶12.9%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
▶47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
15.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
▶41.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
26.1%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
41.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
39.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
27.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
16.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
✓16.5%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Compiler

Compiled 1 996 to 1 204 computations (39.7% saved)

series84.0ms (2%)

Memory
-25.5MiB live, 65.8MiB allocated; 7ms collecting garbage
Counts
44 → 198
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
#s(literal -1 binary64)
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(neg.f64 U)
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
(*.f64 (/.f64 U J) #s(literal 1/2 binary64))
(/.f64 U J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
(*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))
(+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 J (*.f64 U U))
(*.f64 U U)
(/.f64 #s(literal 1/2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 #s(literal -2 binary64) J)
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
Outputs
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (/ U (* 2 J)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (/ U J) 1/2) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U J) #s(hole binary64 (/ U J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (/ (+ (* -1 (/ (pow J 2) U)) (* -1/2 U)) J)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ 1/2 J)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ (+ 1/2 (/ (pow J 2) (pow U 2))) J)))
#s(approx (/ J (* U U)) #s(hole binary64 (/ J (pow U 2))))
#s(approx (/ 1/2 J) #s(hole binary64 (/ 1/2 J)))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (/ J U))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* J (- (* -1/2 (/ U (pow J 2))) (/ 1 U)))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ J (pow U 2))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (* J (+ (* 1/2 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (* J (+ (* 1/2 (/ U (pow J 2))) (/ 1 U))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/8 (* K (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (neg U) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (/ (+ (* -1 J) (* -1/2 (/ (pow U 2) J))) U)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ (+ J (* 1/2 (/ (pow U 2) J))) (pow U 2))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* U (- (* -1 (/ J (pow U 2))) (* 1/2 (/ 1 J))))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
Calls

9 calls:

TimeVariablePointExpression
40.0ms
J
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (* (/ U J) 1/2) (/ U J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (+ (/ J (* U U)) (/ 1/2 J)) (/ J (* U U)) (* U U) (/ 1/2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin (* 1/2 K)) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
6.0ms
J
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (* (/ U J) 1/2) (/ U J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (+ (/ J (* U U)) (/ 1/2 J)) (/ J (* U U)) (* U U) (/ 1/2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin (* 1/2 K)) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
6.0ms
J
@inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (* (/ U J) 1/2) (/ U J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (+ (/ J (* U U)) (/ 1/2 J)) (/ J (* U U)) (* U U) (/ 1/2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin (* 1/2 K)) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
5.0ms
U
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (* (/ U J) 1/2) (/ U J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (+ (/ J (* U U)) (/ 1/2 J)) (/ J (* U U)) (* U U) (/ 1/2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin (* 1/2 K)) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
4.0ms
K
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) -1 (/ (/ U (* 2 J)) (cos (/ K 2))) (/ U (* 2 J)) U (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (* (/ U J) 1/2) (/ U J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (+ (/ J (* U U)) (/ 1/2 J)) (/ J (* U U)) (* U U) (/ 1/2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin (* 1/2 K)) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))

rewrite201.0ms (4.7%)

Memory
18.8MiB live, 244.8MiB allocated; 26ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
096710950
010099806
156568931
082528516
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
242 → 373
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
#s(literal -1 binary64)
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(neg.f64 U)
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
(*.f64 (/.f64 U J) #s(literal 1/2 binary64))
(/.f64 U J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
(*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))
(+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 J (*.f64 U U))
(*.f64 U U)
(/.f64 #s(literal 1/2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 #s(literal -2 binary64) J)
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (/ U (* 2 J)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (/ U J) 1/2) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U J) #s(hole binary64 (/ U J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (/ (+ (* -1 (/ (pow J 2) U)) (* -1/2 U)) J)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ 1/2 J)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ (+ 1/2 (/ (pow J 2) (pow U 2))) J)))
#s(approx (/ J (* U U)) #s(hole binary64 (/ J (pow U 2))))
#s(approx (/ 1/2 J) #s(hole binary64 (/ 1/2 J)))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (* -2 (* J (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (/ J U))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* J (- (* -1/2 (/ U (pow J 2))) (/ 1 U)))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ J (pow U 2))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (* J (+ (* 1/2 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (* J (+ (* 1/2 (/ U (pow J 2))) (/ 1 U))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* K (cos (* 1/2 (PI))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* -1/8 (* K (sin (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* K (+ (* -1/8 (sin (* 1/2 (PI)))) (* -1/48 (* K (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) #s(hole binary64 (+ (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (neg U) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (/ (+ (* -1 J) (* -1/2 (/ (pow U 2) J))) U)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (/ (+ J (* 1/2 (/ (pow U 2) J))) (pow U 2))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* U (- (* -1 (/ J (pow U 2))) (* 1/2 (/ 1 J))))))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) #s(hole binary64 (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
Outputs
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))) (*.f64 #s(literal -2 binary64) J))
(*.f64 J (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
J
(*.f64 #s(literal 2 binary64) #s(literal -1 binary64))
(neg.f64 #s(literal 2 binary64))
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (/.f64 K #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (*.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
(/.f64 K #s(literal 2 binary64))
K
(neg.f64 #s(literal -2 binary64))
#s(literal 2 binary64)
(pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))) #s(literal 1 binary64))
(cosh.f64 (asinh.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cosh.f64 (asinh.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cosh.f64 (asinh.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(sqrt.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(exp.f64 (*.f64 (log1p.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 #s(literal -1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal 1 binary64))
#s(literal -1 binary64)
(/.f64 (neg.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J))) (neg.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(/.f64 (/.f64 U #s(literal 2 binary64)) J)
(/.f64 (neg.f64 U) (neg.f64 (*.f64 #s(literal 2 binary64) J)))
(/.f64 U (*.f64 #s(literal 2 binary64) J))
U
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(+.f64 J J)
(fma.f64 (sin.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(cos.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
(+.f64 (*.f64 (sin.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/2 binary64))
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(*.f64 U #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) U)
(neg.f64 U)
(*.f64 #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
(*.f64 J (*.f64 #s(literal -2 binary64) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
(*.f64 (/.f64 U J) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (/.f64 U J))
(/.f64 (*.f64 #s(literal 1/2 binary64) U) J)
(/.f64 (neg.f64 U) (neg.f64 J))
(/.f64 U J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U))))
(*.f64 J (*.f64 #s(literal -2 binary64) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U)))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U)))
(*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) U) #s(literal -1 binary64))
(*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U))
(*.f64 (neg.f64 U) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))
(*.f64 #s(literal -1 binary64) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) U))
(neg.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) U))
(fma.f64 (/.f64 J (*.f64 U U)) (neg.f64 U) (*.f64 (/.f64 #s(literal 1/2 binary64) J) (neg.f64 U)))
(fma.f64 (neg.f64 U) (/.f64 J (*.f64 U U)) (*.f64 (neg.f64 U) (/.f64 #s(literal 1/2 binary64) J)))
(+.f64 (*.f64 (/.f64 J (*.f64 U U)) (neg.f64 U)) (*.f64 (/.f64 #s(literal 1/2 binary64) J) (neg.f64 U)))
(+.f64 (*.f64 (neg.f64 U) (/.f64 J (*.f64 U U))) (*.f64 (neg.f64 U) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 (-.f64 (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 2 binary64))) (-.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 2 binary64)) (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 2 binary64))) (-.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))
(/.f64 (+.f64 (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 2 binary64)) (*.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
(/.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 3 binary64)) (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 #s(literal 1/2 binary64) J) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 J (*.f64 U U)) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))))
(/.f64 (fma.f64 J J (*.f64 (*.f64 U U) #s(literal 1/2 binary64))) (*.f64 (*.f64 U U) J))
(fma.f64 (pow.f64 J #s(literal -1 binary64)) #s(literal 1/2 binary64) (/.f64 J (*.f64 U U)))
(fma.f64 #s(literal 1/2 binary64) (pow.f64 J #s(literal -1 binary64)) (/.f64 J (*.f64 U U)))
(+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U)))
(+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))
(/.f64 (neg.f64 J) (neg.f64 (*.f64 U U)))
(/.f64 (/.f64 J U) U)
(/.f64 J (*.f64 U U))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)))
(*.f64 (fabs.f64 U) (fabs.f64 U))
(*.f64 (neg.f64 U) (neg.f64 U))
(*.f64 U U)
(pow.f64 (pow.f64 U #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 U) #s(literal 2 binary64))
(pow.f64 (*.f64 U U) #s(literal 1 binary64))
(pow.f64 (neg.f64 U) #s(literal 2 binary64))
(pow.f64 U #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 U) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))))
(*.f64 (pow.f64 J #s(literal -1 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 J #s(literal -1 binary64)))
(/.f64 #s(literal -1/2 binary64) (neg.f64 J))
(/.f64 #s(literal 1/2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))) J) #s(literal -2 binary64))
(*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))) J))
(fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
(fma.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
(+.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) K))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) K) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))))
(fma.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(fma.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))
(-.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(+.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))
(+.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(fma.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (cbrt.f64 (PI.f64)))
(pow.f64 (pow.f64 (PI.f64) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64))
(pow.f64 (PI.f64) #s(literal 1 binary64))
(cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))
(exp.f64 (*.f64 (log.f64 (PI.f64)) #s(literal 1 binary64)))
(exp.f64 (log.f64 (PI.f64)))
(+.f64 (cosh.f64 (log.f64 (PI.f64))) (sinh.f64 (log.f64 (PI.f64))))
(log.f64 (exp.f64 (PI.f64)))
(PI.f64)
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) K))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* -2 J) (*.f64 #s(literal -2 binary64) J))
#s(approx J J)
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))))) (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64)))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (/ U (* 2 J)) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* 2 J) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (/ U J) 1/2) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ U J) (/.f64 U J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 U #s(literal -3 binary64)) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -4 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64)))) (*.f64 J J)) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (*.f64 J J) U)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 J J) (pow.f64 U #s(literal 3 binary64))) #s(literal -1 binary64) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64))) (pow.f64 U #s(literal -3 binary64))) (*.f64 J J) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 #s(literal -1/2 binary64) U (neg.f64 (/.f64 (*.f64 J J) U))) J))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (/.f64 #s(literal 1/2 binary64) J))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (/.f64 (+.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal 1/2 binary64)) J))
#s(approx (/ J (* U U)) (/.f64 J (*.f64 U U)))
#s(approx (/ 1/2 J) (/.f64 #s(literal 1/2 binary64) J))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (*.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* -2 J) (*.f64 #s(literal -2 binary64) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) #s(literal 1 binary64))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))))) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/4 binary64)) #s(literal 2 binary64)) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal 1/64 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/4 binary64))) #s(literal 2 binary64)) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal -1/512 binary64) (/.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))))) #s(literal 2 binary64)) J))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(literal 1 binary64))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/8 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/8 binary64)))) #s(literal 1 binary64)))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (*.f64 (-.f64 (*.f64 (/.f64 U (*.f64 J J)) #s(literal -1/2 binary64)) (pow.f64 U #s(literal -1 binary64))) J))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (/.f64 J (*.f64 U U)))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/2 binary64) (pow.f64 U #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 J) (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 J) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 2 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 J) (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))) #s(literal 2 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 J) (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) #s(literal 2 binary64))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (*.f64 (neg.f64 J) (fma.f64 (/.f64 U (*.f64 J J)) #s(literal 1/2 binary64) (pow.f64 U #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 #s(literal -1/46080 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (cos (/ K 2)) #s(literal 1 binary64))
#s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx K K)
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (*.f64 (*.f64 (*.f64 K K) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) #s(literal 1/32 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) (fma.f64 (/.f64 (*.f64 (*.f64 K K) U) J) #s(literal 1/16 binary64) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 K K)) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ (/ U (* 2 J)) (cos (/ K 2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (/.f64 U J) (fma.f64 #s(literal 1/3072 binary64) (/.f64 U J) (*.f64 (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) #s(literal 1/8 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)))) (*.f64 K K) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* 1/2 K) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (fma.f64 (neg.f64 J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (*.f64 (neg.f64 J) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* -2 J) (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (*.f64 (*.f64 #s(literal 1/4 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (*.f64 (neg.f64 J) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (sin (* 1/2 K)) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 #s(literal -1/48 binary64) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/645120 binary64) (*.f64 K K) #s(literal 1/3840 binary64)) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 K K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/384 binary64) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1/46080 binary64) (*.f64 #s(literal 1/384 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (cos (* 1/2 K)) #s(literal 1 binary64))
#s(approx (cos (* 1/2 K)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (+ (* (sin (* 1/2 K)) (cos (* (PI) 1/2))) (* (sin (* (PI) 1/2)) (cos (* 1/2 K)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sin (* 1/2 K)) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (cos (* 1/2 K)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal -1/128 binary64) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (/.f64 (pow.f64 J #s(literal -4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (*.f64 U U) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx U U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (neg U) (neg.f64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 J #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 J #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 J #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 J #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal 1/2 binary64) J) (*.f64 U U)))
#s(approx (* U U) (*.f64 U U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (pow.f64 U #s(literal 4 binary64))) #s(literal 1 binary64))) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U)))) #s(literal 1 binary64)) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U)))) U))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))) U))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (*.f64 (-.f64 (/.f64 (neg.f64 J) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (+ (/ J (* U U)) (/ 1/2 J)) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) U)
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 J #s(literal 4 binary64))) (pow.f64 U #s(literal 4 binary64))) #s(literal 1 binary64)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -2 binary64) (*.f64 J J)) (*.f64 U U)))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U)))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))))))
#s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U)))))))
#s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) J) (/.f64 J (*.f64 U U))) (neg.f64 U)))

eval56.0ms (1.3%)

Memory
-3.5MiB live, 93.0MiB allocated; 22ms collecting garbage
Compiler

Compiled 19 366 to 2 001 computations (89.7% saved)

prune28.0ms (0.7%)

Memory
-1.3MiB live, 44.5MiB allocated; 5ms collecting garbage
Pruning

24 alts after pruning (19 fresh and 5 done)

PrunedKeptTotal
New3479356
Fresh51015
Picked235
Done022
Total35424378
Accuracy
100.0%
Counts
378 → 24
Alt Table
Click to see full alt table
StatusAccuracyProgram
68.9%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
86.2%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
▶86.2%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
▶57.0%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
48.4%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
✓30.4%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
47.5%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
▶47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))))
✓30.7%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
8.8%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
2.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
46.8%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
46.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (*.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (cbrt.f64 (PI.f64))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
47.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
✓47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
47.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))))
15.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
✓41.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
26.1%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
41.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
▶39.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
▶27.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
16.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
✓16.5%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Compiler

Compiled 2 211 to 1 358 computations (38.6% saved)

series92.0ms (2.1%)

Memory
44.6MiB live, 88.6MiB allocated; 9ms collecting garbage
Counts
49 → 281
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
#s(literal -1 binary64)
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 #s(literal 2 binary64) J)
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal -2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
(*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)
(fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))
(/.f64 (*.f64 J J) (*.f64 U U))
(*.f64 J J)
(*.f64 U U)
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(*.f64 (/.f64 U J) (/.f64 U J))
(/.f64 U J)
#s(literal 1/4 binary64)
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
Outputs
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -1 U)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 -1))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
#s(approx (/ (* J J) (* U U)) #s(hole binary64 (/ (pow J 2) (pow U 2))))
#s(approx (* J J) #s(hole binary64 (pow J 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (/ (+ (* 1/4 (pow U 2)) (pow J 2)) (pow J 2))))
#s(approx (* (/ U J) (/ U J)) #s(hole binary64 (/ (pow U 2) (pow J 2))))
#s(approx (/ U J) #s(hole binary64 (/ U J)))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* J (+ (* -2 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))) (* -2 (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (* -2 (* J (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -2 (/ (pow J 2) U))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* (pow J 2) (- (* -1 (/ U (pow J 2))) (* 2 (/ 1 U))))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (* -2 (/ (pow J 2) (pow U 2)))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (* -1 (* (pow J 2) (+ (* 2 (/ 1 (pow U 2))) (/ 1 (pow J 2)))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* -1 (* J (+ (* 2 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))) (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* 1/2 (* K (cos (* 1/2 (PI)))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* -1/48 (* (pow K 2) (cos (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/48 (cos (* 1/2 (PI)))) (* 1/3840 (* (pow K 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/48 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/645120 (* (pow K 2) (cos (* 1/2 (PI))))) (* 1/3840 (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* 1/4 (* J (* (pow K 2) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* -1/192 (* J (* (pow K 2) (sin (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* 1/4 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* -1/192 (* J (sin (* 1/2 (PI))))) (* 1/23040 (* J (* (pow K 2) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))))) (* -2 (* J (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (/ (+ (* -2 (pow J 2)) (* -1 (pow U 2))) U)))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (/ (+ (* -2 (pow J 2)) (* -1 (pow U 2))) (pow U 2))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -1 (* U (+ 1 (* 2 (/ (pow J 2) (pow U 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
Calls

9 calls:

TimeVariablePointExpression
26.0ms
K
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) -1 (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* -2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (+ (* (/ (* J J) (* U U)) -2) -1) (/ (* J J) (* U U)) (* J J) (* U U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+ (* (* (/ U J) (/ U J)) 1/4) 1) (* (/ U J) (/ U J)) (/ U J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (sin (* 1/2 K)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
20.0ms
J
@inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) -1 (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* -2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (+ (* (/ (* J J) (* U U)) -2) -1) (/ (* J J) (* U U)) (* J J) (* U U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+ (* (* (/ U J) (/ U J)) 1/4) 1) (* (/ U J) (/ U J)) (/ U J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (sin (* 1/2 K)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
7.0ms
J
@0
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) -1 (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* -2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (+ (* (/ (* J J) (* U U)) -2) -1) (/ (* J J) (* U U)) (* J J) (* U U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+ (* (* (/ U J) (/ U J)) 1/4) 1) (* (/ U J) (/ U J)) (/ U J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (sin (* 1/2 K)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
6.0ms
J
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) -1 (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* -2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (+ (* (/ (* J J) (* U U)) -2) -1) (/ (* J J) (* U U)) (* J J) (* U U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+ (* (* (/ U J) (/ U J)) 1/4) 1) (* (/ U J) (/ U J)) (/ U J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (sin (* 1/2 K)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))
6.0ms
K
@-inf
((* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) (* J -2) J -2 (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) (cos (/ K 2)) (/ K 2) K 2 (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) -1 (/ U (* (* 2 J) (cos (/ K 2)))) U (* (* 2 J) (cos (/ K 2))) (* 2 J) (cos (/ K 2)) (/ K 2) (* 1/2 K) 1/2 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* -2 J) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (+ (* (/ (* J J) (* U U)) -2) -1) (/ (* J J) (* U U)) (* J J) (* U U) (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+ (* (* (/ U J) (/ U J)) 1/4) 1) (* (/ U J) (/ U J)) (/ U J) 1/4 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (cos (* (PI) 1/2)) (* (PI) 1/2) (PI) (sin (* 1/2 K)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin (* (PI) 1/2)) (cos (* 1/2 K)))

rewrite258.0ms (6%)

Memory
-45.9MiB live, 311.2MiB allocated; 112ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0110116533
0115414266
1609413556
0837713127
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
330 → 510
Calls
Call 1
Inputs
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 J #s(literal -2 binary64))
J
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
#s(literal -1 binary64)
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 #s(literal 2 binary64) J)
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal -2 binary64) J)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
(*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)
(fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))
(/.f64 (*.f64 J J) (*.f64 U U))
(*.f64 J J)
(*.f64 U U)
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(*.f64 (/.f64 U J) (/.f64 U J))
(/.f64 U J)
#s(literal 1/4 binary64)
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* J -2) #s(hole binary64 (* -2 J)))
#s(approx J #s(hole binary64 J))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (cos (* 1/2 K))))))
#s(approx (* 2 J) #s(hole binary64 (* 2 J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 3))) (* 2 (/ 1 U)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (- (* (pow J 2) (+ (* -4 (/ (pow J 2) (pow U 5))) (* 2 (/ 1 (pow U 3))))) (* 2 (/ 1 U)))))))
#s(approx (* -2 J) #s(hole binary64 (* -2 J)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -1 U)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (+ (* -2 (/ (pow J 2) U)) (* -1 U))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 -1))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (- (* -2 (/ (pow J 2) (pow U 2))) 1)))
#s(approx (/ (* J J) (* U U)) #s(hole binary64 (/ (pow J 2) (pow U 2))))
#s(approx (* J J) #s(hole binary64 (pow J 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 U)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) (* -1 U))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -1 U) (* (pow J 2) (+ (* -2 (/ (pow (cos (* 1/2 K)) 2) U)) (* (pow J 2) (+ (* -4 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))) (* 2 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) U)) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 4)) (pow U 3))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 4) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 6)) (pow U 5))))) (/ (pow (cos (* 1/2 K)) 2) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* 1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (/ (* (pow J 2) (cos (* 1/2 K))) U)) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* -1 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 3)) (pow U 3))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ U (cos (* 1/2 K)))) (* (pow J 2) (+ (* (pow J 2) (+ (* -1 (/ (pow (cos (* 1/2 K)) 3) (pow U 3))) (* 2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 5)) (pow U 5))))) (/ (cos (* 1/2 K)) U)))) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (/ (pow J 2) U)) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* -1 (/ (pow J 2) (pow U 3))) (/ 1 U)))) J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (/ (+ (* 1/2 U) (* (pow J 2) (+ (* (pow J 2) (- (* 2 (/ (pow J 2) (pow U 5))) (/ 1 (pow U 3)))) (/ 1 U)))) J)))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (* 1/4 (/ (pow U 2) (pow J 2)))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (/ (+ (* 1/4 (pow U 2)) (pow J 2)) (pow J 2))))
#s(approx (* (/ U J) (/ U J)) #s(hole binary64 (/ (pow U 2) (pow J 2))))
#s(approx (/ U J) #s(hole binary64 (/ U J)))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* J (+ (* -2 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))) (* -2 (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (* -2 (* J (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 1))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -2 J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (* -1/4 (/ (pow U 2) (pow J 2))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (* 1/64 (/ (pow U 4) (pow J 4)))) 2))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* J (- (+ (* -1/4 (/ (pow U 2) (pow J 2))) (+ (* -1/512 (/ (pow U 6) (pow J 6))) (* 1/64 (/ (pow U 4) (pow J 4))))) 2))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -2 (/ (pow J 2) U))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* (pow J 2) (- (* -1 (/ U (pow J 2))) (* 2 (/ 1 U))))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (* -2 (/ (pow J 2) (pow U 2)))))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (* -1 (* (pow J 2) (+ (* 2 (/ 1 (pow U 2))) (/ 1 (pow J 2)))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* J (cos (* 1/2 K))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* J (+ (* -2 (cos (* 1/2 K))) (+ (* -1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (+ (* -1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K)))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 1))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (+ (* 1/1024 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/8 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 1))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* 1/8 (/ (pow U 2) (pow J 2))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (* 1/8 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (+ (* -1/128 (/ (pow U 4) (pow J 4))) (+ (* 1/1024 (/ (pow U 6) (pow J 6))) (* 1/8 (/ (pow U 2) (pow J 2))))))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (* 1/4 (/ (pow U 2) (pow J 2))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* J (+ 2 (+ (* -1/64 (/ (pow U 4) (pow J 4))) (+ (* 1/512 (/ (pow U 6) (pow J 6))) (* 1/4 (/ (pow U 2) (pow J 2))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* J (+ (* -1/64 (/ (pow U 4) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (+ (* 1/512 (/ (pow U 6) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (+ (* 1/4 (/ (pow U 2) (* (pow J 2) (cos (* 1/2 K))))) (* 2 (cos (* 1/2 K))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* -1 (* J (+ (* 2 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))) (* 2 (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 1))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (/ K 2)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (/ K 2) #s(hole binary64 (* 1/2 K)))
#s(approx K #s(hole binary64 K))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (* 1/2 (/ U J))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/16 (/ (* (pow K 2) U) J)) (* 1/2 (/ U J)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/64 (/ U J)) (* 1/384 (/ U J))))) (* 1/16 (/ U J)))))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) #s(hole binary64 (+ (* 1/2 (/ U J)) (* (pow K 2) (+ (* 1/16 (/ U J)) (* (pow K 2) (+ (* -1/2 (* (pow K 2) (+ (* -1/46080 (/ U J)) (+ (* 1/3072 (/ U J)) (* 1/8 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))) (* -1/2 (+ (* -1/64 (/ U J)) (* 1/384 (/ U J)))))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (* 2 J)))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* -1/4 (* J (pow K 2))) (* 2 J))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* 1/192 (* J (pow K 2))))))))
#s(approx (* (* 2 J) (cos (/ K 2))) #s(hole binary64 (+ (* 2 J) (* (pow K 2) (+ (* -1/4 J) (* (pow K 2) (+ (* -1/23040 (* J (pow K 2))) (* 1/192 J))))))))
#s(approx (* 1/2 K) #s(hole binary64 (* 1/2 K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* -2 (* (pow K 2) (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))) (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* (pow K 2) (+ (* -2 (+ (* -1/8 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/32 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -2 (* (pow K 2) (+ (* -1/16 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* -1/46080 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (+ (* 1/12288 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))) (* -2 (+ (* -1/256 (* (/ (pow U 2) J) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (* J (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) (* 1/2 (* (* J (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* -1/8 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* -1/256 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (+ (* 1/384 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* (pow K 2) (+ (* -1/16 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (+ (* -1/46080 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (+ (* 1/12288 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))))))))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* 1/32 (* (/ (* (pow K 2) (pow U 2)) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) (* (pow K 2) (+ (* 1/32 (* (/ (pow U 2) (pow J 2)) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) (* (pow K 2) (+ (* 1/2 (* (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))) (* 1/2 (* (* (pow K 2) (- (* -1/4 (+ (* -1/1440 (/ (pow U 2) (pow J 2))) (+ (* 1/192 (/ (pow U 2) (pow J 2))) (* 1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2)))))))) (* 1/32 (/ (* (pow U 2) (- (* -1/4 (+ (* -1/16 (/ (pow U 2) (pow J 2))) (* 1/48 (/ (pow U 2) (pow J 2))))) (* 1/1024 (/ (pow U 4) (* (pow J 4) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (* (pow J 2) (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))))) (sqrt (/ 1 (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* -1 (* J (* K (cos (* 1/2 (PI)))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* 1/4 (* J (* K (sin (* 1/2 (PI)))))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* K (+ (* -1 (* J (cos (* 1/2 (PI))))) (* K (+ (* 1/24 (* J (* K (cos (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* 1/2 (* K (cos (* 1/2 (PI)))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* -1/48 (* (pow K 2) (cos (* 1/2 (PI))))) (* 1/2 (cos (* 1/2 (PI))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/48 (cos (* 1/2 (PI)))) (* 1/3840 (* (pow K 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* K (+ (* 1/2 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/48 (cos (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/645120 (* (pow K 2) (cos (* 1/2 (PI))))) (* 1/3840 (cos (* 1/2 (PI))))))))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* 1/2 K)))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* -1/48 (pow K 2))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* 1/3840 (pow K 2)) 1/48))))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (* K (+ 1/2 (* (pow K 2) (- (* (pow K 2) (+ 1/3840 (* -1/645120 (pow K 2)))) 1/48))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (* -2 (* J (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* 1/4 (* J (* (pow K 2) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* -1/192 (* J (* (pow K 2) (sin (* 1/2 (PI)))))) (* 1/4 (* J (sin (* 1/2 (PI))))))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) #s(hole binary64 (+ (* -2 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* 1/4 (* J (sin (* 1/2 (PI))))) (* (pow K 2) (+ (* -1/192 (* J (sin (* 1/2 (PI))))) (* 1/23040 (* J (* (pow K 2) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/8 (* (pow K 2) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* 1/384 (* (pow K 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow K 2) (+ (* -1/8 (sin (* 1/2 (PI)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (sin (* 1/2 (PI))))) (* 1/384 (sin (* 1/2 (PI)))))))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 1))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* -1/8 (pow K 2)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* 1/384 (pow K 2)) 1/8)))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (+ 1 (* (pow K 2) (- (* (pow K 2) (+ 1/384 (* -1/46080 (pow K 2)))) 1/8)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -2 (* (* J (cos (* 1/2 K))) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* (cos (* 1/2 K)) (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (* (pow J 2) (pow (cos (* 1/2 K)) 2))))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) #s(hole binary64 (+ (* -2 (* J (* (cos (* 1/2 K)) (sin (* 1/2 (PI)))))) (* -2 (* J (* (cos (* 1/2 (PI))) (sin (* 1/2 K))))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin (* 1/2 K)))))
#s(approx (sin (* 1/2 K)) #s(hole binary64 (sin (* 1/2 K))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) #s(hole binary64 (* (cos (* 1/2 K)) (sin (* 1/2 (PI))))))
#s(approx (cos (* 1/2 K)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx U #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* -1/4 (/ (pow U 2) J)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (pow J 3))) (* 1/4 (/ 1 J)))))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (+ (* -2 J) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (pow J 5))) (* 1/64 (/ 1 (pow J 3))))) (* 1/4 (/ 1 J)))))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (/ (+ (* -2 (pow J 2)) (* -1 (pow U 2))) U)))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(hole binary64 (/ (+ (* -2 (pow J 2)) (* -1 (pow U 2))) (pow U 2))))
#s(approx (* U U) #s(hole binary64 (pow U 2)))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* -1/4 (/ (pow U 2) (* J (cos (* 1/2 K))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* 1/64 (/ (pow U 2) (* (pow J 3) (pow (cos (* 1/2 K)) 3)))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (+ (* -2 (* J (cos (* 1/2 K)))) (* (pow U 2) (- (* (pow U 2) (+ (* -1/512 (/ (pow U 2) (* (pow J 5) (pow (cos (* 1/2 K)) 5)))) (* 1/64 (/ 1 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))) (* 1/4 (/ 1 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 3)))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (+ (cos (* 1/2 K)) (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 5)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 3)))))) (* 1/8 (/ 1 (* (pow J 2) (cos (* 1/2 K))))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (* (pow J 4) (pow (cos (* 1/2 K)) 4)))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (* (pow J 6) (pow (cos (* 1/2 K)) 6)))) (* 1/128 (/ 1 (* (pow J 4) (pow (cos (* 1/2 K)) 4)))))) (* 1/8 (/ 1 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* -1/128 (/ (pow U 2) (pow J 4))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (+ 1 (* (pow U 2) (+ (* (pow U 2) (- (* 1/1024 (/ (pow U 2) (pow J 6))) (* 1/128 (/ 1 (pow J 4))))) (* 1/8 (/ 1 (pow J 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(hole binary64 (* (pow U 2) (+ (* 1/4 (/ 1 (pow J 2))) (/ 1 (pow U 2))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ (* -1 -1) (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2))))))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (pow J 2) (pow U 2))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (pow J 6) (pow U 6))) (+ (* -2 (/ (pow J 2) (pow U 2))) (* 2 (/ (pow J 4) (pow U 4))))) 1)))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) #s(hole binary64 (* -1 (* U (+ 1 (* 2 (/ (pow J 2) (pow U 2))))))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 U))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4)))) 1)))))
#s(approx (* (* J -2) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) #s(hole binary64 (* -1 (* U (- (+ (* -4 (/ (* (pow J 6) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* -2 (/ (* (pow J 2) (pow (cos (* 1/2 K)) 2)) (pow U 2))) (* 2 (/ (* (pow J 4) (pow (cos (* 1/2 K)) 4)) (pow U 4))))) 1)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2))))))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 4)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 6)) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ (* J (pow (cos (* 1/2 K)) 2)) (pow U 2)))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1/2 (/ U (* J (cos (* 1/2 K)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2))))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow U 4))) (+ (* 2 (/ (* (pow J 5) (pow (cos (* 1/2 K)) 5)) (pow U 6))) (+ (* 1/2 (/ 1 (* J (cos (* 1/2 K))))) (/ (* J (cos (* 1/2 K))) (pow U 2)))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1/2 (/ U J))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2))))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(hole binary64 (* -1 (* U (+ (* -1 (/ (pow J 3) (pow U 4))) (+ (* 2 (/ (pow J 5) (pow U 6))) (+ (* 1/2 (/ 1 J)) (/ J (pow U 2)))))))))
Outputs
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))) (*.f64 #s(literal -2 binary64) J))
(*.f64 J (*.f64 #s(literal -2 binary64) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
J
(*.f64 #s(literal 2 binary64) #s(literal -1 binary64))
(neg.f64 #s(literal 2 binary64))
#s(literal -2 binary64)
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (/.f64 K #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(+.f64 (*.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
(/.f64 K #s(literal 2 binary64))
K
(neg.f64 #s(literal -2 binary64))
#s(literal 2 binary64)
(pow.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))) #s(literal 1 binary64))
(cosh.f64 (asinh.f64 (neg.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cosh.f64 (asinh.f64 (fabs.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(cosh.f64 (asinh.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(sqrt.f64 (+.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(exp.f64 (*.f64 (log1p.f64 (pow.f64 (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 #s(literal -1 binary64) #s(literal 9 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal 1 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal -1 binary64)) #s(literal 3 binary64)))
#s(literal -1 binary64)
(/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(/.f64 (neg.f64 U) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))
(/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
U
(*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal 2 binary64) J))
(*.f64 #s(literal 2 binary64) (*.f64 J (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 #s(literal 2 binary64) J)
(*.f64 J #s(literal 2 binary64))
(+.f64 J J)
(fma.f64 (sin.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))
(cos.f64 (neg.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))
(cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))
(+.f64 (*.f64 (sin.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
(*.f64 #s(literal 1/2 binary64) K)
(*.f64 K #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/2 binary64))
#s(literal 1/2 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
(*.f64 #s(literal -2 binary64) J)
(*.f64 J #s(literal -2 binary64))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)) U))
(*.f64 (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)) U)
(*.f64 U (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64)) (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal 1 binary64)))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal 3 binary64)) #s(literal -8 binary64) #s(literal -1 binary64)) (fma.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal -1 binary64)))))
(fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64))
(fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -1 binary64))
(-.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal 1 binary64))
(+.f64 (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)) #s(literal -1 binary64))
(+.f64 #s(literal -1 binary64) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)))
(*.f64 (/.f64 J U) (/.f64 J U))
(*.f64 J (/.f64 J (*.f64 U U)))
(/.f64 (neg.f64 (*.f64 J J)) (neg.f64 (*.f64 U U)))
(/.f64 (/.f64 (*.f64 J J) U) U)
(/.f64 (*.f64 J J) (*.f64 U U))
(*.f64 (pow.f64 J #s(literal 1 binary64)) (pow.f64 J #s(literal 1 binary64)))
(*.f64 (neg.f64 J) (neg.f64 J))
(*.f64 (fabs.f64 J) (fabs.f64 J))
(*.f64 J J)
(pow.f64 (*.f64 J J) #s(literal 1 binary64))
(pow.f64 J #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 J) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 J) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 J) #s(literal 2 binary64))))
(*.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)))
(*.f64 (fabs.f64 U) (fabs.f64 U))
(*.f64 (neg.f64 U) (neg.f64 U))
(*.f64 U U)
(pow.f64 (*.f64 U U) #s(literal 1 binary64))
(pow.f64 U #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 U) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 U) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) J)) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(*.f64 J (*.f64 #s(literal -2 binary64) (*.f64 #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(*.f64 #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
(pow.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) #s(literal 1 binary64))
(pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log1p.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (-.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/64 binary64) #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)))))
(fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 U J) (*.f64 (/.f64 U J) #s(literal 1/4 binary64)) #s(literal 1 binary64))
(fma.f64 #s(literal 1/4 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))
(-.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))))
(+.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (/.f64 U J) #s(literal 1 binary64)) (pow.f64 (/.f64 U J) #s(literal 1 binary64)))
(*.f64 (neg.f64 (/.f64 U J)) (neg.f64 (/.f64 U J)))
(*.f64 (fabs.f64 (/.f64 U J)) (fabs.f64 (/.f64 U J)))
(*.f64 (/.f64 U J) (/.f64 U J))
(*.f64 U (/.f64 U (*.f64 J J)))
(pow.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 U J) #s(literal 2 binary64))
(/.f64 (*.f64 U (/.f64 U J)) J)
(/.f64 (*.f64 (/.f64 U J) U) J)
(/.f64 (neg.f64 (*.f64 U U)) (neg.f64 (*.f64 J J)))
(/.f64 (/.f64 (*.f64 U U) J) J)
(/.f64 (*.f64 U U) (*.f64 J J))
(exp.f64 (*.f64 (log.f64 (/.f64 U J)) #s(literal 2 binary64)))
(/.f64 (neg.f64 U) (neg.f64 J))
(/.f64 U J)
(neg.f64 #s(literal -1/4 binary64))
#s(literal 1/4 binary64)
(pow.f64 #s(literal 1 binary64) #s(literal 9 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(pow.f64 #s(literal 1 binary64) #s(literal 2 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 6 binary64))
(pow.f64 #s(literal -1 binary64) #s(literal 2 binary64))
(/.f64 #s(literal 2 binary64) #s(literal 2 binary64))
(neg.f64 #s(literal -1 binary64))
(cosh.f64 #s(literal 0 binary64))
(sqrt.f64 #s(literal 1 binary64))
(fabs.f64 #s(literal -1 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal -1 binary64)) #s(literal 2 binary64)))
(exp.f64 #s(literal 0 binary64))
(+.f64 #s(literal 1 binary64) #s(literal 0 binary64))
#s(literal 1 binary64)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(*.f64 (*.f64 #s(literal -2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))) J)
(*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 #s(literal -2 binary64) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 J (*.f64 #s(literal -2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))))
(/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))) (-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))) (-.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) #s(literal -8 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) #s(literal 3 binary64))) (fma.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 3 binary64)) #s(literal -8 binary64) (pow.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (-.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))))
(fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -2 binary64) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -2 binary64) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (*.f64 #s(literal -2 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) J (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 #s(literal -2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(fma.f64 J (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 J (*.f64 (*.f64 #s(literal -2 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(-.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) (*.f64 #s(literal -2 binary64) J)))
(+.f64 (*.f64 J (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 J (*.f64 (*.f64 #s(literal -2 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(+.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
(*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) K) (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) K) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) K) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) K (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (cbrt.f64 (PI.f64)) (cbrt.f64 (PI.f64))) #s(literal 1 binary64)) (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (PI.f64)) (sqrt.f64 (PI.f64)))
(*.f64 (*.f64 (cbrt.f64 (PI.f64)) (cbrt.f64 (PI.f64))) (cbrt.f64 (PI.f64)))
(pow.f64 (pow.f64 (PI.f64) #s(literal -1 binary64)) #s(literal -1 binary64))
(pow.f64 (PI.f64) #s(literal 1 binary64))
(cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64)))
(exp.f64 (*.f64 (log.f64 (PI.f64)) #s(literal 1 binary64)))
(exp.f64 (log.f64 (PI.f64)))
(+.f64 (cosh.f64 (log.f64 (PI.f64))) (sinh.f64 (log.f64 (PI.f64))))
(log.f64 (exp.f64 (PI.f64)))
(PI.f64)
(sin.f64 (*.f64 #s(literal 1/2 binary64) K))
(*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -2 binary64))
(*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J)
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))
(*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))
(*.f64 (*.f64 #s(literal -2 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 #s(literal -2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) K))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) K))) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))) #s(literal 2 binary64))
(sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) K)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) K))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* J -2) (*.f64 #s(literal -2 binary64) J))
#s(approx J J)
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))))) (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64)))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* 2 J) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 U #s(literal -3 binary64)) #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -4 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64)))) (*.f64 J J)) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J) (neg.f64 U)))
#s(approx (* J -2) (*.f64 #s(literal -2 binary64) J))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (neg.f64 U))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) #s(literal -1 binary64))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)))
#s(approx (/ (* J J) (* U U)) (/.f64 (/.f64 (*.f64 J J) U) U))
#s(approx (* J J) (*.f64 J J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal -2 binary64) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal -4 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))) #s(literal 2 binary64))) (*.f64 J J) (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U) #s(literal -2 binary64))) (*.f64 J J) (neg.f64 U)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64)))) #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 3 binary64))))) (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) U)) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (/.f64 U (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 J J)) U)) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64))) #s(literal -1 binary64) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 J J) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64)) (pow.f64 U #s(literal 5 binary64)))) #s(literal 2 binary64) (neg.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 3 binary64)))) (*.f64 J J) (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U)) (*.f64 J J) (/.f64 (*.f64 #s(literal 1/2 binary64) U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))) J))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (/.f64 (fma.f64 #s(literal 1/2 binary64) U (/.f64 (*.f64 J J) U)) J))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 J J) (pow.f64 U #s(literal 3 binary64))) #s(literal -1 binary64) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (/.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 J J)) (pow.f64 U #s(literal 5 binary64))) (pow.f64 U #s(literal -3 binary64))) (*.f64 J J) (pow.f64 U #s(literal -1 binary64))) (*.f64 J J) (*.f64 #s(literal 1/2 binary64) U)) J))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (/.f64 (fma.f64 (*.f64 U U) #s(literal 1/4 binary64) (*.f64 J J)) (*.f64 J J)))
#s(approx (* (/ U J) (/ U J)) (pow.f64 (/.f64 U J) #s(literal 2 binary64)))
#s(approx (/ U J) (/.f64 U J))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(literal 1 binary64))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))))) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) #s(literal 2 binary64)) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal 1/64 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)))) #s(literal 2 binary64)) J))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal -1/512 binary64) (/.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 J #s(literal 4 binary64))))) #s(literal 2 binary64)) J))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (-.f64 (/.f64 (neg.f64 U) (*.f64 J J)) (/.f64 #s(literal 2 binary64) U)) (*.f64 J J)))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64)))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) (neg.f64 (*.f64 (fma.f64 (pow.f64 U #s(literal -2 binary64)) #s(literal 2 binary64) (pow.f64 J #s(literal -2 binary64))) (*.f64 J J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64) (*.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64)))) J))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal -1/512 binary64) (*.f64 (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal 1/64 binary64))))) J))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (+.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(literal 1 binary64))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (pow.f64 U #s(literal 4 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal 1/1024 binary64) (pow.f64 U #s(literal 6 binary64))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) #s(literal 1 binary64))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)))) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (+.f64 (fma.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (fma.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 2 binary64)) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64))) #s(literal 2 binary64)) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) #s(literal 2 binary64)) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 (*.f64 (fma.f64 #s(literal -1/64 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) (fma.f64 #s(literal 1/512 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))))) J)))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (neg.f64 (*.f64 (*.f64 #s(literal 2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) K)))) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 #s(literal -1/46080 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (cos (/ K 2)) #s(literal 1 binary64))
#s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (/ K 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))
#s(approx K K)
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (*.f64 (*.f64 (*.f64 K K) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) #s(literal 1/32 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64)))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (/.f64 (*.f64 (*.f64 K K) U) J) #s(literal 1/16 binary64) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 K K)) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (/ U (* (* 2 J) (cos (/ K 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (fma.f64 #s(literal -1/46080 binary64) (/.f64 U J) (fma.f64 #s(literal 1/3072 binary64) (/.f64 U J) (*.f64 (*.f64 (/.f64 U J) #s(literal -5/384 binary64)) #s(literal 1/8 binary64)))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal -5/384 binary64)))) (*.f64 K K) (*.f64 #s(literal 1/16 binary64) (/.f64 U J))) (*.f64 K K) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (*.f64 (*.f64 K K) J) #s(literal -1/4 binary64) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) J) #s(literal 1/192 binary64) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* (* 2 J) (cos (/ K 2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/23040 binary64) (*.f64 (*.f64 K K) J) (*.f64 #s(literal 1/192 binary64) J)) (*.f64 K K) (*.f64 #s(literal -1/4 binary64) J)) (*.f64 K K) (*.f64 #s(literal 2 binary64) J)))
#s(approx (* 1/2 K) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal -1/46080 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12288 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (fma.f64 (*.f64 #s(literal -1/256 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/384 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))))) (*.f64 K K) (*.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 U U) J)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) J) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) #s(literal -2 binary64))) (*.f64 K K) (*.f64 (*.f64 (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) J) #s(literal -2 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (fma.f64 #s(literal 1/384 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 #s(literal -1/46080 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 (*.f64 #s(literal 1/12288 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (*.f64 (*.f64 (*.f64 K K) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))) #s(literal 1/32 binary64) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (*.f64 K K))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (fma.f64 #s(literal 1/192 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal 1/4 binary64)))) #s(literal -1/4 binary64) (*.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal -1/24 binary64)) #s(literal -1/4 binary64) (*.f64 #s(literal -1/1024 binary64) (/.f64 (/.f64 (pow.f64 U #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64))))) (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))) (*.f64 K K)) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64))))) (*.f64 K K) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64))) (pow.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)) #s(literal -1/2 binary64)))) (*.f64 K K) (sqrt.f64 (fma.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (fma.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 (*.f64 (*.f64 J K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) J) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) K) (*.f64 (*.f64 #s(literal 1/4 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) K (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J))) K (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (*.f64 (*.f64 #s(literal 1/2 binary64) K) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (*.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) (*.f64 K K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 K K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/48 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (*.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/645120 binary64) (*.f64 K K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 #s(literal -1/48 binary64) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) K))
#s(approx (sin (* 1/2 K)) (*.f64 #s(literal 1/2 binary64) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 #s(literal -1/48 binary64) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 (-.f64 (*.f64 #s(literal 1/3840 binary64) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (sin (* 1/2 K)) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/645120 binary64) (*.f64 K K) #s(literal 1/3840 binary64)) (*.f64 K K)) #s(literal 1/48 binary64)) (*.f64 K K) #s(literal 1/2 binary64)) K))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal -1/192 binary64) J) (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (*.f64 K K) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (*.f64 #s(literal 1/23040 binary64) J) (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/192 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K))) (*.f64 K K) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 K K)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/384 binary64) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1/46080 binary64) (*.f64 #s(literal 1/384 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 K K) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(approx (cos (* 1/2 K)) #s(literal 1 binary64))
#s(approx (cos (* 1/2 K)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 #s(literal 1/384 binary64) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (cos (* 1/2 K)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/46080 binary64) (*.f64 K K) #s(literal 1/384 binary64)) (*.f64 K K)) #s(literal 1/8 binary64)) (*.f64 K K) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64))) #s(literal 1/4 binary64) #s(literal 1 binary64))))
#s(approx (+ (* (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (* -2 J)) (* (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (* -2 J))) (*.f64 (*.f64 #s(literal -2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
#s(approx (* (cos (* (PI) 1/2)) (sin (* 1/2 K))) (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sin (* 1/2 K)) (sin.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (sin (* (PI) 1/2)) (cos (* 1/2 K))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (cos (* 1/2 K)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal -1/128 binary64) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (/.f64 (pow.f64 J #s(literal -4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (*.f64 U U) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx U U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 J #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 J #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 J #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) J)) (*.f64 U U) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (/.f64 (fma.f64 (*.f64 J J) #s(literal -2 binary64) (neg.f64 (*.f64 U U))) U))
#s(approx (+ (* (/ (* J J) (* U U)) -2) -1) (/.f64 (fma.f64 (*.f64 J J) #s(literal -2 binary64) (neg.f64 (*.f64 U U))) (*.f64 U U)))
#s(approx (* U U) (*.f64 U U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (/.f64 (/.f64 (*.f64 U U) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -3 binary64)) #s(literal 1/64 binary64) (/.f64 (*.f64 #s(literal -1/512 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)))) (*.f64 U U)) (/.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) (*.f64 U U) (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))) #s(literal -1/128 binary64) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 5 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (/.f64 (pow.f64 J #s(literal -4 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 3 binary64))))) (*.f64 U U) (*.f64 (/.f64 (pow.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(literal 1/8 binary64))) (*.f64 U U) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -1/128 binary64) (*.f64 U U)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 4 binary64))) #s(literal -1/128 binary64) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 U U) (pow.f64 J #s(literal 6 binary64))) #s(literal 1/1024 binary64) (*.f64 #s(literal -1/128 binary64) (pow.f64 J #s(literal -4 binary64)))) (*.f64 U U) (*.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 U U) #s(literal 1 binary64)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64)) U))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64))) U))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))) U))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))) U))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)) U))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))) U))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))) U))
#s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) U)
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64))))
#s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 J #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal -2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (/.f64 (*.f64 J J) U) U) #s(literal 2 binary64) #s(literal 1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64) (-.f64 (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal -4 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal 2 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) (*.f64 U U)) #s(literal -2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (fma.f64 (*.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 4 binary64)) (pow.f64 U #s(literal 4 binary64)))) #s(literal -1 binary64) (fma.f64 (*.f64 (pow.f64 J #s(literal 5 binary64)) (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 6 binary64)) (pow.f64 U #s(literal 6 binary64)))) #s(literal 2 binary64) (fma.f64 J (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal 2 binary64)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 U J) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J))))))
#s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (fma.f64 J (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J)))))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 #s(literal -1/2 binary64) (/.f64 U J)))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J)))))
#s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (*.f64 (neg.f64 U) (fma.f64 (/.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 U #s(literal 4 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 J #s(literal 5 binary64)) (pow.f64 U #s(literal 6 binary64))) #s(literal 2 binary64) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))

eval65.0ms (1.5%)

Memory
-15.2MiB live, 131.2MiB allocated; 12ms collecting garbage
Compiler

Compiled 23 186 to 2 435 computations (89.5% saved)

prune33.0ms (0.8%)

Memory
20.4MiB live, 67.4MiB allocated; 2ms collecting garbage
Pruning

28 alts after pruning (21 fresh and 7 done)

PrunedKeptTotal
New4359444
Fresh21214
Picked325
Done055
Total44028468
Accuracy
100.0%
Counts
468 → 28
Alt Table
Click to see full alt table
StatusAccuracyProgram
68.9%
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
86.2%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
26.6%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 #s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))))))
48.4%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))))))
32.0%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
86.2%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
57.0%
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
✓30.4%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
47.5%
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))
✓30.7%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
8.8%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
2.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
46.8%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
47.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
✓47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
47.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))))
15.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
47.2%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))))
✓41.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
26.1%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
41.6%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
✓39.4%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
41.9%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
✓27.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
3.8%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
16.0%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
✓16.5%
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Compiler

Compiled 3 509 to 1 197 computations (65.9% saved)

regimes79.0ms (1.8%)

Memory
5.2MiB live, 101.3MiB allocated; 7ms collecting garbage
Counts
46 → 3
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U #s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 #s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (-.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 #s(literal -2 binary64) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) J) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J) (*.f64 (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) #s(literal -2 binary64)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) J (*.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (*.f64 #s(literal -2 binary64) J)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (pow.f64 (sqrt.f64 (PI.f64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 (sqrt.f64 (PI.f64)) (sqrt.f64 (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) K)) (cos.f64 (*.f64 (*.f64 (pow.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) (cbrt.f64 (PI.f64))) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (cbrt.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (*.f64 (*.f64 (cbrt.f64 (PI.f64)) (cbrt.f64 (PI.f64))) (cbrt.f64 (PI.f64))) #s(literal 2 binary64))) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (fma.f64 (sin.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal 0 binary64) (sin.f64 (/.f64 K #s(literal 2 binary64)))) (*.f64 #s(literal 1 binary64) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

6 calls:

15.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
13.0ms
U
12.0ms
K
12.0ms
(/.f64 K #s(literal 2 binary64))
12.0ms
J
Results
AccuracySegmentsBranch
86.3%1(/.f64 K #s(literal 2 binary64))
86.3%1(cos.f64 (/.f64 K #s(literal 2 binary64)))
99.9%3(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
91.0%2J
86.3%1K
89.4%2U
Compiler

Compiled 34 to 37 computations (-8.8% saved)

regimes9.0ms (0.2%)

Memory
7.8MiB live, 7.8MiB allocated; 0ms collecting garbage
Counts
30 → 3
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U #s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 #s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 (/.f64 U (*.f64 #s(literal 2 binary64) J)) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K)))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

1 calls:

7.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
99.8%3(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 24 to 17 computations (29.2% saved)

regimes23.0ms (0.5%)

Memory
-38.2MiB live, 7.9MiB allocated; 3ms collecting garbage
Counts
28 → 3
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U #s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (/.f64 U J) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 #s(approx (+ (* (* (/ U J) (/ U J)) 1/4) 1) (*.f64 (fma.f64 (pow.f64 J #s(literal -2 binary64)) #s(literal 1/4 binary64) (pow.f64 U #s(literal -2 binary64))) (*.f64 U U)))))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) (hypot.f64 #s(literal -1 binary64) (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 #s(approx (/ K 2) (*.f64 #s(literal 1/2 binary64) K))))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

1 calls:

7.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
99.8%3(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 24 to 17 computations (29.2% saved)

regimes44.0ms (1%)

Memory
11.8MiB live, 57.0MiB allocated; 4ms collecting garbage
Counts
24 → 3
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (neg U) (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1)) (fma.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) J) #s(literal 2 binary64)) U) #s(literal 2 binary64) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) (-.f64 (*.f64 (*.f64 (*.f64 J J) (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) K)) U) #s(literal 2 binary64))) #s(literal -2 binary64)) #s(literal 1 binary64))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) #s(approx (sqrt (+ (* (* (/ U J) (/ U J)) 1/4) 1)) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (/.f64 U J) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U #s(approx (* (* 2 J) (cos (/ K 2))) (*.f64 #s(literal 2 binary64) J))) #s(literal 2 binary64)))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

6 calls:

9.0ms
(/.f64 K #s(literal 2 binary64))
7.0ms
(cos.f64 (/.f64 K #s(literal 2 binary64)))
7.0ms
K
7.0ms
U
7.0ms
J
Results
AccuracySegmentsBranch
57.0%1(/.f64 K #s(literal 2 binary64))
57.0%1K
70.1%4(cos.f64 (/.f64 K #s(literal 2 binary64)))
67.6%2U
72.2%2J
87.9%3(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 34 to 37 computations (-8.8% saved)

regimes6.0ms (0.1%)

Memory
11.5MiB live, 11.5MiB allocated; 0ms collecting garbage
Counts
18 → 5
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) K))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

1 calls:

5.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
83.4%5(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 24 to 17 computations (29.2% saved)

regimes6.0ms (0.1%)

Memory
10.5MiB live, 10.5MiB allocated; 0ms collecting garbage
Counts
16 → 5
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
(*.f64 (*.f64 J #s(literal -2 binary64)) (*.f64 #s(approx (cos (/ K 2)) (fma.f64 #s(literal -1/8 binary64) (*.f64 K K) #s(literal 1 binary64))) #s(approx (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt.f64 (fma.f64 (*.f64 (/.f64 U J) (/.f64 U J)) #s(literal 1/4 binary64) #s(literal 1 binary64))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

1 calls:

4.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
77.1%5(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 24 to 17 computations (29.2% saved)

regimes14.0ms (0.3%)

Memory
-25.0MiB live, 19.2MiB allocated; 6ms collecting garbage
Counts
15 → 5
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) (sqrt.f64 (fma.f64 (/.f64 (*.f64 U U) (*.f64 J J)) #s(literal 1/4 binary64) #s(literal 1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

2 calls:

9.0ms
J
4.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
54.6%2J
75.0%5(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 25 to 20 computations (20% saved)

regimes9.0ms (0.2%)

Memory
17.9MiB live, 17.9MiB allocated; 0ms collecting garbage
Counts
14 → 4
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 U J))))
(*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (* (cos (/ K 2)) (sqrt (+ (* -1 -1) (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))) (*.f64 (/.f64 U J) #s(literal 1/2 binary64))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/4 binary64) (*.f64 #s(literal -2 binary64) J))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (neg.f64 U) #s(approx (- (* (* (* J J) (pow (/ (cos (* 1/2 K)) U) 2)) -2) 1) (fma.f64 (/.f64 (*.f64 J J) (*.f64 U U)) #s(literal -2 binary64) #s(literal -1 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 (fma.f64 (*.f64 (/.f64 J U) (/.f64 J U)) #s(literal -2 binary64) #s(literal -1 binary64)) U)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (fma.f64 (/.f64 (*.f64 U U) J) #s(literal -1/2 binary64) (neg.f64 J)) U)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) (*.f64 (neg.f64 U) (+.f64 (/.f64 J (*.f64 U U)) (/.f64 #s(literal 1/2 binary64) J))))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (fma.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64) (neg.f64 U))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

2 calls:

4.0ms
U
4.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
53.0%2U
70.2%4(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 25 to 20 computations (20% saved)

regimes5.0ms (0.1%)

Memory
6.9MiB live, 6.9MiB allocated; 0ms collecting garbage
Counts
5 → 4
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) #s(approx (* (+ (* (/ (* J J) (* U U)) -2) -1) U) (*.f64 (/.f64 (*.f64 J J) U) #s(literal -2 binary64)))))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (*.f64 (*.f64 J #s(literal -2 binary64)) #s(approx (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1)) #s(approx (* (neg U) (+ (/ J (* U U)) (/ 1/2 J))) (/.f64 (neg.f64 J) U)))))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) #s(approx (* (* J -2) (sqrt (+ (* (/ (* U U) (* J J)) 1/4) 1))) (*.f64 #s(literal -2 binary64) J)))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

2 calls:

2.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
2.0ms
(cos.f64 (/.f64 K #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
56.4%2(cos.f64 (/.f64 K #s(literal 2 binary64)))
70.0%4(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 28 to 23 computations (17.9% saved)

regimes4.0ms (0.1%)

Memory
8.0MiB live, 8.0MiB allocated; 0ms collecting garbage
Counts
2 → 2
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (neg.f64 U))
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

3 calls:

1.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
1.0ms
K
1.0ms
(/.f64 K #s(literal 2 binary64))
Results
AccuracySegmentsBranch
44.8%3(/.f64 K #s(literal 2 binary64))
44.8%3K
56.4%2(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 28 to 25 computations (10.7% saved)

regimes22.0ms (0.5%)

Memory
-37.4MiB live, 16.0MiB allocated; 19ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Outputs
#s(approx (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) U)
Calls

6 calls:

17.0ms
K
1.0ms
(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
1.0ms
(/.f64 K #s(literal 2 binary64))
1.0ms
J
1.0ms
(cos.f64 (/.f64 K #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
16.5%1(/.f64 K #s(literal 2 binary64))
16.5%1K
16.5%1U
16.5%1J
16.5%1(cos.f64 (/.f64 K #s(literal 2 binary64)))
16.5%1(*.f64 (*.f64 (*.f64 #s(literal -2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 U (*.f64 (*.f64 #s(literal 2 binary64) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 2 binary64)))))
Compiler

Compiled 34 to 37 computations (-8.8% saved)

bsearch1.0ms (0%)

Memory
1.0MiB live, 1.0MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
8.050044299770066e+289
+inf
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
8.050044299770066e+289
+inf
0.0ms
-inf
-4.370204928528968e+307
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.4MiB live, 1.4MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
8.050044299770066e+289
+inf
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated; 0ms collecting garbage
Algorithm
2×left-value
Steps
TimeLeftRight
0.0ms
8.050044299770066e+289
+inf
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.9MiB live, 1.9MiB allocated; 0ms collecting garbage
Algorithm
4×left-value
Steps
TimeLeftRight
0.0ms
8.050044299770066e+289
+inf
0.0ms
-1.7569947924211182e-78
-6.67018858745544e-95
0.0ms
-1.134647884200065e+136
-8.804399540979041e+133
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.8MiB live, 1.8MiB allocated; 0ms collecting garbage
Algorithm
4×left-value
Steps
TimeLeftRight
0.0ms
-1.2335864418409685e-252
2.766172714234023e-223
0.0ms
-5.288181839756457e-110
-2.1788869616560924e-122
0.0ms
-1.097007030773605e+174
-2.296535986359107e+162
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
2.3MiB live, 2.3MiB allocated; 0ms collecting garbage
Algorithm
4×left-value
Steps
TimeLeftRight
0.0ms
-1.2335864418409685e-252
2.766172714234023e-223
0.0ms
-2.1788869616560924e-122
-1.9818324475369418e-122
0.0ms
-1.097007030773605e+174
-2.296535986359107e+162
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
2.2MiB live, 2.2MiB allocated; 0ms collecting garbage
Algorithm
3×left-value
Steps
TimeLeftRight
0.0ms
-1.2335864418409685e-252
2.766172714234023e-223
0.0ms
-6.307488511774496e-28
-3.9395391357430784e-29
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch1.0ms (0%)

Memory
1.5MiB live, 1.5MiB allocated; 0ms collecting garbage
Algorithm
3×left-value
Steps
TimeLeftRight
0.0ms
-1.2335864418409685e-252
2.766172714234023e-223
0.0ms
-6.307488511774496e-28
-3.9395391357430784e-29
0.0ms
-4.370204928528968e+307
-2.2521873067529546e+306
Compiler

Compiled 27 to 23 computations (14.8% saved)

bsearch0.0ms (0%)

Memory
0.7MiB live, 0.7MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.2335864418409685e-252
2.766172714234023e-223
Compiler

Compiled 27 to 23 computations (14.8% saved)

derivations6.0ms (0.1%)

Memory
11.0MiB live, 11.0MiB allocated; 0ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 1 946 to 142 computations (92.7% saved)

preprocess424.0ms (9.8%)

Memory
-4.6MiB live, 555.0MiB allocated; 81ms collecting garbage
Remove

(negabs J)

(abs U)

(abs K)

Compiler

Compiled 23 136 to 5 922 computations (74.4% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...