Metrics for Maksimov and Kolovsky, Equation (4)

start0.0ms (0%)

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

analyze22.0ms (0.6%)

Memory

-28.4MiB live, 0.8MiB allocated; 23ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
100%	99.8%	0%	0.2%	0%	0%	0%	1

Compiler

Compiled 17 to 16 computations (5.9% saved)

sample2.2s (60.2%)

Memory

32.0MiB live, 3 319.4MiB allocated; 423ms collecting garbage

Samples

1.0s	6 292×	0	valid
810.0ms	1 964×	1	valid

Precisions

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

ival-exp: 469.0ms (34.7% of total)

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

ival-mult: 198.0ms (14.6% of total)

ival-div: 104.0ms (7.7% of total)

adjust: 83.0ms (6.1% of total)

ival-neg: 57.0ms (4.2% of total)

ival-add: 52.0ms (3.8% of total)

ival-sub: 51.0ms (3.8% of total)

exact: 6.0ms (0.4% of total)

ival-assert: 3.0ms (0.2% of total)

Bogosity

explain332.0ms (9%)

Memory

11.1MiB live, 485.1MiB allocated; 36ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
130	0	-	1	(-4.1862251649712886e+97 0.006130673381463447 -6.809933301038409e+154 -1.485797563625767e-195)	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
0	0	-	0	-	`K`
0	0	-	0	-	`(neg.f64 l)`
0	0	-	0	-	`(/.f64 K #s(literal 2 binary64))`
0	0	-	0	-	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
0	135	(5.4577022474984715e+227 -3.6228071856352106e+300 -1.3122147417645183e+281 -3.3425483505064935e-218)	0	-	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
0	0	-	0	-	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
0	0	-	0	-	`J`
0	0	-	0	-	`U`
0	0	-	0	-	`(exp.f64 (neg.f64 l))`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	0	-	`(exp.f64 l)`
0	0	-	0	-	`l`
0	0	-	0	-	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`	sensitivity	135	0
`-.f64`	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`	cancellation	44	1

Confusion

	Predicted +	Predicted -
+	41	0
-	113	102

Precision

0.2662337662337662

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	41	0	0
-	113	1	101

Precision?

0.2645161290322581

Recall?

1.0

Freqs

test

number	freq
0	102
1	129
2	25

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

104.0ms	196×	1	valid
38.0ms	258×	0	valid
38.0ms	58×	2	valid

Compiler

Compiled 141 to 46 computations (67.4% saved)

Precisions

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

ival-exp: 47.0ms (39.6% of total)

adjust: 26.0ms (21.9% of total)

ival-cos: 21.0ms (17.7% of total)

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

ival-sub: 4.0ms (3.4% of total)

ival-div: 4.0ms (3.4% of total)

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

ival-neg: 2.0ms (1.7% of total)

ival-true: 1.0ms (0.8% of total)

ival-assert: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

preprocess181.0ms (4.9%)

Memory

18.0MiB live, 249.7MiB allocated; 46ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	67	231
1	188	229
2	461	229
3	1762	229
0	14	15
0	23	15
1	44	15
2	92	15
3	309	15
4	1627	13
0	9007	12

Stop Event

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

Calls

Call 1

Inputs
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Outputs

(+.f64 (*.f64 (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

(fma.f64 (/.f64 J #s(literal -1 binary64)) (*.f64 (sin.f64 (+.f64 (+.f64 (/.f64 (+.f64 (PI.f64) K) #s(literal -2 binary64)) (PI.f64)) (PI.f64))) (sinh.f64 l)) (fma.f64 (/.f64 J #s(literal -1 binary64)) (*.f64 (sin.f64 (+.f64 (+.f64 (/.f64 (+.f64 (PI.f64) K) #s(literal -2 binary64)) (PI.f64)) (PI.f64))) (sinh.f64 l)) U))

Symmetry

(abs K)

Compiler

Compiled 15 to 14 computations (6.7% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 4 computations (-∞% saved)

prune0.0ms (0%)

Memory

1.4MiB live, 1.4MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	86.0%	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Compiler

Compiled 15 to 14 computations (6.7% saved)

series22.0ms (0.6%)

Memory

-7.8MiB live, 39.0MiB allocated; 1ms collecting garbage

Counts

14 → 59

Calls

Call 1

Inputs
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
J
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(exp.f64 l)
l
(exp.f64 (neg.f64 l))
(neg.f64 l)
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
U

Outputs
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx J #s(hole binary64 J))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (exp l) #s(hole binary64 1))
#s(approx (exp l) #s(hole binary64 (+ 1 l)))
#s(approx (exp l) #s(hole binary64 (+ 1 (* l (+ 1 (* 1/2 l))))))
#s(approx (exp l) #s(hole binary64 (+ 1 (* l (+ 1 (* l (+ 1/2 (* 1/6 l))))))))
#s(approx l #s(hole binary64 l))
#s(approx (exp (neg l)) #s(hole binary64 1))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* -1 l))))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* l (- (* 1/2 l) 1)))))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* l (- (* l (+ 1/2 (* -1/6 l))) 1)))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (exp l) #s(hole binary64 (exp l)))
#s(approx (exp (neg l)) #s(hole binary64 (exp (neg l))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (exp (neg l)) #s(hole binary64 (exp (* -1 l))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#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 (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx U #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

Calls

12 calls:

Time	Variable		Point	Expression
4.0ms	K	@	0	((+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) J (- (exp l) (exp (neg l))) (exp l) l (exp (neg l)) (neg l) (cos (/ K 2)) (/ K 2) K 2 U)
3.0ms	J	@	0	((+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) J (- (exp l) (exp (neg l))) (exp l) l (exp (neg l)) (neg l) (cos (/ K 2)) (/ K 2) K 2 U)
2.0ms	l	@	0	((+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) J (- (exp l) (exp (neg l))) (exp l) l (exp (neg l)) (neg l) (cos (/ K 2)) (/ K 2) K 2 U)
2.0ms	J	@	-inf	((+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) J (- (exp l) (exp (neg l))) (exp l) l (exp (neg l)) (neg l) (cos (/ K 2)) (/ K 2) K 2 U)
2.0ms	l	@	-inf	((+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (* J (- (exp l) (exp (neg l)))) J (- (exp l) (exp (neg l))) (exp l) l (exp (neg l)) (neg l) (cos (/ K 2)) (/ K 2) K 2 U)

rewrite183.0ms (5%)

Memory

37.2MiB live, 226.4MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	240	1478
0	254	1318
1	1385	1318
0	8128	1248

Stop Event

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

Counts

73 → 124

Calls

Call 1

Inputs
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))
J
(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))
(exp.f64 l)
l
(exp.f64 (neg.f64 l))
(neg.f64 l)
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
U
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx J #s(hole binary64 J))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (exp (neg l)))) (/ U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* 2 (* J l))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* 2 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (exp l) #s(hole binary64 1))
#s(approx (exp l) #s(hole binary64 (+ 1 l)))
#s(approx (exp l) #s(hole binary64 (+ 1 (* l (+ 1 (* 1/2 l))))))
#s(approx (exp l) #s(hole binary64 (+ 1 (* l (+ 1 (* l (+ 1/2 (* 1/6 l))))))))
#s(approx l #s(hole binary64 l))
#s(approx (exp (neg l)) #s(hole binary64 1))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* -1 l))))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* l (- (* 1/2 l) 1)))))
#s(approx (exp (neg l)) #s(hole binary64 (+ 1 (* l (- (* l (+ 1/2 (* -1/6 l))) 1)))))
#s(approx (neg l) #s(hole binary64 (* -1 l)))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (neg l)))))
#s(approx (exp l) #s(hole binary64 (exp l)))
#s(approx (exp (neg l)) #s(hole binary64 (exp (neg l))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (exp (* -1 l)))))))
#s(approx (* J (- (exp l) (exp (neg l)))) #s(hole binary64 (* J (- (exp l) (exp (* -1 l))))))
#s(approx (- (exp l) (exp (neg l))) #s(hole binary64 (- (exp l) (exp (* -1 l)))))
#s(approx (exp (neg l)) #s(hole binary64 (exp (* -1 l))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (exp (neg l)))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l))))))))))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l)))))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (* J (- (exp l) (exp (neg l))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* J (- (exp l) (exp (neg l)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) #s(hole binary64 (+ (* J (- (exp l) (exp (neg l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (exp (neg l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (exp (neg l)))))) (* 1/384 (* J (- (exp l) (exp (neg l))))))))))))
#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 (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx U #s(hole binary64 U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (exp (neg l))))) U)) 1)))))

Outputs
(/.f64 (-.f64 (.f64 U U) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))) (-.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))
(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U))) (neg.f64 (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 J J)) (-.f64 (.f64 U U) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)))))
(/.f64 (.f64 (fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U))
(/.f64 (fma.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 J J)) (-.f64 (.f64 U U) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U))))
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) U)
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)) (/.f64 (.f64 U U) (-.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)))
(-.f64 U (.f64 (neg.f64 (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(-.f64 U (.f64 (neg.f64 (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(-.f64 U (.f64 (neg.f64 J) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(+.f64 (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 J J)) (-.f64 (.f64 U U) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)))) (/.f64 (pow.f64 U #s(literal 3 binary64)) (fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 J J)) (-.f64 (.f64 U U) (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)))))
(+.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) U)
(+.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
(.f64 (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 J (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)
(.f64 J (.f64 #s(literal 2 binary64) (sinh.f64 l)))
J
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (neg.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (exp.f64 l) (exp.f64 l) (fma.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (*.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))))))
(/.f64 (.f64 (.f64 #s(literal 2 binary64) (cosh.f64 l)) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 #s(literal 2 binary64) (cosh.f64 l)))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) #s(literal 3 binary64))) (fma.f64 (exp.f64 l) (exp.f64 l) (fma.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (*.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))) (/.f64 (pow.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (cosh.f64 l))))
(-.f64 (/.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (fma.f64 (exp.f64 l) (exp.f64 l) (fma.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))))) (/.f64 (pow.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) #s(literal 3 binary64)) (fma.f64 (exp.f64 l) (exp.f64 l) (fma.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))))))
(-.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))
(/.f64 (+.f64 (pow.f64 (cosh.f64 l) #s(literal 3 binary64)) (pow.f64 (sinh.f64 l) #s(literal 3 binary64))) (+.f64 (.f64 (cosh.f64 l) (cosh.f64 l)) (-.f64 (.f64 (sinh.f64 l) (sinh.f64 l)) (*.f64 (cosh.f64 l) (sinh.f64 l)))))
(/.f64 (*.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64))) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))
(exp.f64 l)
(+.f64 (cosh.f64 l) (sinh.f64 l))
l
(*.f64 (pow.f64 (exp.f64 #s(literal -1 binary64)) (/.f64 l #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1 binary64)) (/.f64 l #s(literal 2 binary64))))
(pow.f64 (exp.f64 #s(literal -1 binary64)) l)
(pow.f64 (exp.f64 l) #s(literal -1 binary64))
(/.f64 (-.f64 (.f64 (cosh.f64 l) (cosh.f64 l)) (.f64 (sinh.f64 (.f64 #s(literal -1 binary64) l)) (sinh.f64 (.f64 #s(literal -1 binary64) l)))) (-.f64 (cosh.f64 l) (sinh.f64 (*.f64 #s(literal -1 binary64) l))))
(/.f64 (-.f64 (pow.f64 (cosh.f64 l) #s(literal 3 binary64)) (pow.f64 (sinh.f64 l) #s(literal 3 binary64))) (fma.f64 (cosh.f64 l) (cosh.f64 l) (fma.f64 (sinh.f64 l) (sinh.f64 l) (*.f64 (cosh.f64 l) (sinh.f64 l)))))
(/.f64 (+.f64 (pow.f64 (cosh.f64 l) #s(literal 3 binary64)) (pow.f64 (sinh.f64 (.f64 #s(literal -1 binary64) l)) #s(literal 3 binary64))) (+.f64 (.f64 (cosh.f64 l) (cosh.f64 l)) (-.f64 (.f64 (sinh.f64 (.f64 #s(literal -1 binary64) l)) (sinh.f64 (.f64 #s(literal -1 binary64) l))) (.f64 (cosh.f64 l) (sinh.f64 (*.f64 #s(literal -1 binary64) l))))))
(/.f64 (*.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64))) (exp.f64 l))
(/.f64 #s(literal 1 binary64) (exp.f64 l))
(/.f64 #s(literal -1 binary64) (neg.f64 (exp.f64 l)))
(-.f64 (cosh.f64 l) (sinh.f64 l))
(exp.f64 (-.f64 #s(literal 0 binary64) l))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal -1 binary64))) l))
(exp.f64 (*.f64 #s(literal -1 binary64) l))
(+.f64 (cosh.f64 l) (sinh.f64 (*.f64 #s(literal -1 binary64) l)))
(*.f64 #s(literal -1 binary64) l)
(*.f64 l #s(literal -1 binary64))
(neg.f64 l)
(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 (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))
K
#s(literal 2 binary64)
U
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
#s(approx J J)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (/.f64 U J)) J))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) J) (.f64 #s(literal -1 binary64) (fma.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (/.f64 U J)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 l J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64) U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (*.f64 #s(literal 2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) l U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l))) l U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 (.f64 l J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (*.f64 l J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) l))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (fma.f64 (.f64 #s(literal 2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 l l))) l))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (fma.f64 (.f64 #s(literal 2 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/2520 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/60 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l))) (.f64 l l))) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (.f64 #s(literal 2 binary64) J) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (.f64 #s(literal 2 binary64) J)) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/60 binary64) (.f64 #s(literal 1/3 binary64) J)) (.f64 l l) (.f64 #s(literal 2 binary64) J)) l))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/2520 binary64) (.f64 #s(literal 1/60 binary64) J)) (.f64 l l) (.f64 #s(literal 1/3 binary64) J)) (.f64 l l) (.f64 #s(literal 2 binary64) J)) l))
#s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (.f64 l l) #s(literal 1/3 binary64) #s(literal 2 binary64)) l))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))
#s(approx (- (exp l) (exp (neg l))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
#s(approx (exp l) #s(literal 1 binary64))
#s(approx (exp l) (-.f64 l #s(literal -1 binary64)))
#s(approx (exp l) (fma.f64 (fma.f64 #s(literal 1/2 binary64) l #s(literal 1 binary64)) l #s(literal 1 binary64)))
#s(approx (exp l) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/6 binary64) l #s(literal 1/2 binary64)) l #s(literal 1 binary64)) l #s(literal 1 binary64)))
#s(approx l l)
#s(approx (exp (neg l)) #s(literal 1 binary64))
#s(approx (exp (neg l)) (fma.f64 #s(literal -1 binary64) l #s(literal 1 binary64)))
#s(approx (exp (neg l)) (fma.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) l) #s(literal 1 binary64)) l #s(literal 1 binary64)))
#s(approx (exp (neg l)) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/6 binary64) l #s(literal 1/2 binary64)) l) #s(literal 1 binary64)) l #s(literal 1 binary64)))
#s(approx (neg l) (*.f64 #s(literal -1 binary64) l))
#s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))
#s(approx (exp l) (exp.f64 l))
#s(approx (exp (neg l)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) U))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) J) (*.f64 #s(literal 2 binary64) (sinh.f64 l))))
#s(approx (* J (- (exp l) (exp (neg l)))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
#s(approx (- (exp l) (exp (neg l))) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))
#s(approx (exp (neg l)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (fma.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (-.f64 (+.f64 U (.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))))) (.f64 (neg.f64 J) (*.f64 #s(literal 2 binary64) (sinh.f64 l)))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J U) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))))) (.f64 K K))))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J U) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (fma.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (.f64 K K))) (.f64 K K))))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))))) (.f64 K K) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
#s(approx (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)) (.f64 (fma.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 K K) (.f64 #s(literal 2 binary64) (sinh.f64 l))) (.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 #s(literal 2 binary64) (sinh.f64 l)))) (.f64 K K))) (.f64 K K) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
#s(approx (cos (/ K 2)) #s(literal 1 binary64))
#s(approx (cos (/ K 2)) (fma.f64 (*.f64 K K) #s(literal -1/8 binary64) #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 (cos (/ K 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx U U)
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 (fma.f64 J (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (sinh.f64 l))) U) #s(literal 1 binary64)) U))
#s(approx (+ (* (* J (- (exp l) (exp (neg l)))) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) U) (-.f64 (.f64 (.f64 J (/.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (sinh.f64 l))) U)) #s(literal -1 binary64)) #s(literal 1 binary64))))

eval36.0ms (1%)

Memory: -30.3MiB live, 23.2MiB allocated; 4ms collecting garbage
Compiler: Compiled 3 317 to 586 computations (82.3% saved)

prune40.0ms (1.1%)

Memory

-4.1MiB live, 42.3MiB allocated; 3ms collecting garbage

Pruning

3 alts after pruning (3 fresh and 0 done)

	Pruned	Kept	Total
New	118	3	121
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	119	3	122

Accuracy

100.0%

Counts

122 → 3

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.9%	(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
▶	100.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
▶	11.7%	(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))

Status

Accuracy

Program

▶

99.9%

(fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)

▶

100.0%

(fma.f64 J (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

▶

11.7%

(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (*.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))

Compiler

Compiled 87 to 44 computations (49.4% saved)

series130.0ms (3.5%)

Memory

37.4MiB live, 127.4MiB allocated; 8ms collecting garbage

Counts

25 → 183

Calls

Call 1

Inputs
(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))
(fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64)))
(pow.f64 U #s(literal 3/2 binary64))
U
#s(literal 3/2 binary64)
(pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(sinh.f64 l)
l
J
#s(literal 3 binary64)
(fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))))
(fabs.f64 U)
(-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)

Outputs
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (pow U 3) (pow (fabs U) 2))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (/ (* J (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (pow (fabs U) 4)) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* J (- (* -1 (* J (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))))) (* -1 (/ (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* J (- (* J (- (* J (- (/ (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow (fabs U) 2)) (+ (/ (* U (* (cos (* 1/2 K)) (* (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))) (- (exp l) (/ 1 (exp l)))))) (pow (fabs U) 2)) (/ (* (pow U 4) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow (fabs U) 6))))) (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))))) (* -1 (/ (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (pow U 3)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* J (- (exp l) (/ 1 (exp l))))))
#s(approx J #s(hole binary64 J))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (pow (fabs U) 2)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* J (- (* J (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (pow (fabs U) 2))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* J (- (* J (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 U))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (- (+ (* -1 (/ (+ (* -1 (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (pow J 2))) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (- (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ (pow U 3) (* (pow J 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* -1 (/ U J)) (+ (* -1 (/ (pow U 2) (* (pow J 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (/ (* U (+ (* -1 (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (pow J 3) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (+ (/ (* U (pow (fabs U) 2)) (* (pow J 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (/ (pow (fabs U) 2) (* (pow J 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow J 3) (+ (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (/ (pow U 3) (pow J 3))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (- (+ (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (/ (pow (fabs U) 2) (pow J 2))) (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ (- (+ (* -1 (/ (pow (fabs U) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (/ (pow U 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* -1 U)) J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (+ (* -1 (/ (* U (+ (* -1 (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (* U (pow (fabs U) 2)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) J)) (+ (* -1 (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) J)) (* -1 U)) J)))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow J 3) (+ (* -1 (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* -1 (/ (pow U 3) (pow J 3))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (- (* -1 (/ (pow (fabs U) 2) J)) (* -1 (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* 2 (/ (* J (* (pow U 4) (* l (cos (* 1/2 K))))) (pow (fabs U) 4))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* l (- (* -1 (* l (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4)))))) (* -2 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* l (- (* l (- (* l (- (* 8 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow (fabs U) 2))) (+ (* -1/3 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))) (+ (* 2 (/ (* J (* U (* (cos (* 1/2 K)) (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4))))))) (pow (fabs U) 2))) (* 8 (/ (* (pow J 3) (* (pow U 4) (pow (cos (* 1/2 K)) 3))) (pow (fabs U) 6))))))) (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4)))))) (* -2 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* 8 (* (pow J 3) (* (pow l 3) (pow (cos (* 1/2 K)) 3)))) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow l 3) (+ (* 4 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))))) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 13/15 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3))))))) (pow U 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* 8 (* (pow J 3) (* (pow l 3) (pow (cos (* 1/2 K)) 3))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 4 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 13/15 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 41/378 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 13/15 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* 2 l)))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (sinh l) #s(hole binary64 l))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* 1/6 (pow l 2))))))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* (pow l 2) (+ 1/6 (* 1/120 (pow l 2))))))))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* (pow l 2) (+ 1/6 (* (pow l 2) (+ 1/120 (* 1/5040 (pow l 2))))))))))
#s(approx l #s(hole binary64 l))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -2 (* J (* U (* l (cos (* 1/2 K)))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* l (- (* 4 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 2 (* J (* U (cos (* 1/2 K))))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* l (- (* l (+ (* -1/3 (* J (* U (* l (cos (* 1/2 K)))))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))) (* 2 (* J (* U (cos (* 1/2 K))))))) (pow (fabs U) 2))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -2 (* J (* U (* l (cos (* 1/2 K))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* 4 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* l (+ (* -1/3 (* J (* U (* l (cos (* 1/2 K)))))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* l (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* l (- (* 4/3 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 1/3 (* J (* U (cos (* 1/2 K))))))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* 4 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4/3 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 8/45 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 4/3 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 4/3 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 4/315 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 8/45 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* 2 (* J (* U (* l (cos (* 1/2 K))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 1/3 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 2 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/60 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 1/3 (* J (* U (cos (* 1/2 K)))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 2 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/3 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/2520 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 1/60 (* J (* U (cos (* 1/2 K)))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* 2 (* l (cos (* 1/2 K))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* (pow l 2) (cos (* 1/2 K)))) (* 2 (cos (* 1/2 K)))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/60 (* (pow l 2) (cos (* 1/2 K)))) (* 1/3 (cos (* 1/2 K)))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/3 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/2520 (* (pow l 2) (cos (* 1/2 K)))) (* 1/60 (cos (* 1/2 K)))))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (+ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3)) (- (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (sinh l) #s(hole binary64 (* 1/2 (- (exp l) (/ 1 (exp l))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (+ (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (+ (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (+ (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (* -61/15360 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (+ (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (* (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))) (- (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* -3/8 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (+ (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* 7/128 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))))) (pow U 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (+ (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* (pow K 2) (+ (* -61/15360 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* 7/128 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))))) (pow U 3)))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* -3/8 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* 7/128 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* (pow K 2) (+ (* -61/15360 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* 7/128 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* J (- (exp l) (/ 1 (exp l))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l))))))))))))
#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 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (+ (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (+ (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* -1/4 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/48 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (+ (* -1/1440 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* J (* U (- (exp l) (/ 1 (exp l)))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* J (* U (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* J (* U (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* -1/8 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* 1/384 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (- (exp l) (/ 1 (exp l))))) (* 1/384 (- (exp l) (/ 1 (exp l))))))))) (/ 1 (exp l)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (/ (* (pow J 4) (* U (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4)))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* U (- (/ (* (pow J 5) (* U (* (pow (cos (* 1/2 K)) 5) (pow (- (exp l) (/ 1 (exp l))) 5)))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3)) (* -1 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2))))) (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* U (- (* U (- (* U (- (/ 1 (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* -1 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 6) (pow (- (exp l) (/ 1 (exp l))) 6))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 4))))) (* -1 (/ (* (pow J 5) (* (pow (cos (* 1/2 K)) 5) (pow (- (exp l) (/ 1 (exp l))) 5))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3))))) (* -1 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2))))) (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))))
#s(approx (pow U 3/2) #s(hole binary64 (sqrt (pow U 3))))
#s(approx U #s(hole binary64 U))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)))))
#s(approx (fabs U) #s(hole binary64 (fabs U)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (/ (pow U 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* J (* (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))) (+ (/ 1 U) (+ (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow U 3))) (+ (/ 1 U) (+ (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (+ (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* J (* (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 2) (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (/ (pow (fabs U) 2) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow U 3) (+ 1 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* U (- (+ (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U) (/ (pow (fabs U) 2) U)) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* U (- (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (* (pow U 2) (pow (sqrt -1) 2)) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (* -1 (/ (- (* -1 (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 3) (* U (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))) (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3)) (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))))) U)) (* -1 (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))) U)) (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow U 3) (pow (sqrt -1) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow U 3) (+ (* -1 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))) (pow (sqrt -1) 2))))))
#s(approx (pow U 3/2) #s(hole binary64 (* (sqrt (pow U 3)) (pow (sqrt -1) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* -1 (* U (- (* -1 (/ (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) U)) (* -1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U)) (* -1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))

Calls

12 calls:

Time	Variable		Point	Expression
17.0ms	l	@	inf	((/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow U 3/2) U 3/2 (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (cos (/ K 2)) (/ K 2) K 2 (* (* 2 (sinh l)) J) (* 2 (sinh l)) (sinh l) l J 3 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fabs U) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) (* (* 2 (sinh l)) (cos (/ K 2))) (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U))
13.0ms	J	@	0	((/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow U 3/2) U 3/2 (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (cos (/ K 2)) (/ K 2) K 2 (* (* 2 (sinh l)) J) (* 2 (sinh l)) (sinh l) l J 3 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fabs U) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) (* (* 2 (sinh l)) (cos (/ K 2))) (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U))
13.0ms	K	@	inf	((/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow U 3/2) U 3/2 (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (cos (/ K 2)) (/ K 2) K 2 (* (* 2 (sinh l)) J) (* 2 (sinh l)) (sinh l) l J 3 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fabs U) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) (* (* 2 (sinh l)) (cos (/ K 2))) (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U))
10.0ms	l	@	-inf	((/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow U 3/2) U 3/2 (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (cos (/ K 2)) (/ K 2) K 2 (* (* 2 (sinh l)) J) (* 2 (sinh l)) (sinh l) l J 3 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fabs U) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) (* (* 2 (sinh l)) (cos (/ K 2))) (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U))
9.0ms	K	@	0	((/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow U 3/2) U 3/2 (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (cos (/ K 2)) (/ K 2) K 2 (* (* 2 (sinh l)) J) (* 2 (sinh l)) (sinh l) l J 3 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fabs U) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) (* (* 2 (sinh l)) (cos (/ K 2))) (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U))

rewrite264.0ms (7.1%)

Memory

-26.8MiB live, 298.2MiB allocated; 66ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	994	14367
0	1035	11245
0	6276	10915

Stop Event

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

Counts

208 → 295

Calls

Call 1

Inputs
(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))
(fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64)))
(pow.f64 U #s(literal 3/2 binary64))
U
#s(literal 3/2 binary64)
(pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(sinh.f64 l)
l
J
#s(literal 3 binary64)
(fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))))
(fabs.f64 U)
(-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)))
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (pow U 3) (pow (fabs U) 2))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (/ (* J (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (pow (fabs U) 4)) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* J (- (* -1 (* J (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))))) (* -1 (/ (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* J (- (* J (- (* J (- (/ (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow (fabs U) 2)) (+ (/ (* U (* (cos (* 1/2 K)) (* (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))) (- (exp l) (/ 1 (exp l)))))) (pow (fabs U) 2)) (/ (* (pow U 4) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow (fabs U) 6))))) (+ (* -1 (/ (* (pow U 5) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 6))) (/ (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 4))))) (* -1 (/ (* (pow U 4) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (pow U 3)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* J (- (exp l) (/ 1 (exp l))))))
#s(approx J #s(hole binary64 J))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (pow (fabs U) 2)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* J (- (* J (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (pow (fabs U) 2))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* J (- (* J (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 U))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (- (+ (* -1 (/ (+ (* -1 (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (pow J 2))) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* J (- (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ (pow U 3) (* (pow J 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* -1 (/ U J)) (+ (* -1 (/ (pow U 2) (* (pow J 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (/ (* U (+ (* -1 (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (pow J 3) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (+ (/ (* U (pow (fabs U) 2)) (* (pow J 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (/ (pow (fabs U) 2) (* (pow J 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow J 3) (+ (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (/ (pow U 3) (pow J 3))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (- (+ (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (/ (pow (fabs U) 2) (pow J 2))) (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* J (+ (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))) (/ U J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ (- (+ (* -1 (/ (pow (fabs U) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (/ (pow U 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* -1 U)) J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (/ (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (+ (* -1 (/ (* U (+ (* -1 (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (* U (pow (fabs U) 2)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) J)) (+ (* -1 (/ (pow (fabs U) 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) J)) (* -1 U)) J)))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow J 3) (+ (* -1 (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* -1 (/ (pow U 3) (pow J 3))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* (pow J 2) (+ (* -1 (/ (- (* -1 (/ (pow (fabs U) 2) J)) (* -1 (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) J)) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* J (+ (* -1 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) (* -1 (/ U J)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* 2 (/ (* J (* (pow U 4) (* l (cos (* 1/2 K))))) (pow (fabs U) 4))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* l (- (* -1 (* l (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4)))))) (* -2 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* l (- (* l (- (* l (- (* 8 (/ (* (pow J 3) (pow (cos (* 1/2 K)) 3)) (pow (fabs U) 2))) (+ (* -1/3 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))) (+ (* 2 (/ (* J (* U (* (cos (* 1/2 K)) (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4))))))) (pow (fabs U) 2))) (* 8 (/ (* (pow J 3) (* (pow U 4) (pow (cos (* 1/2 K)) 3))) (pow (fabs U) 6))))))) (+ (* -4 (/ (* (pow J 2) (* (pow U 5) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 6))) (* 4 (/ (* (pow J 2) (* (pow U 3) (pow (cos (* 1/2 K)) 2))) (pow (fabs U) 4)))))) (* -2 (/ (* J (* (pow U 4) (cos (* 1/2 K)))) (pow (fabs U) 4))))) (/ (pow U 3) (pow (fabs U) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* 8 (* (pow J 3) (* (pow l 3) (pow (cos (* 1/2 K)) 3)))) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow l 3) (+ (* 4 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))))) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 13/15 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3))))))) (pow U 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* 8 (* (pow J 3) (* (pow l 3) (pow (cos (* 1/2 K)) 3))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 4 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 13/15 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow l 3) (+ (* 8 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 4 (* (pow J 3) (pow (cos (* 1/2 K)) 3))) (* (pow l 2) (+ (* 41/378 (* (pow J 3) (* (pow l 2) (pow (cos (* 1/2 K)) 3)))) (* 13/15 (* (pow J 3) (pow (cos (* 1/2 K)) 3)))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* 2 (* J (* l (cos (* 1/2 K)))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/3 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/2520 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/60 (* J (cos (* 1/2 K))))))))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* 2 (* J l))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 1/3 (* J (pow l 2))) (* 2 J)))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/60 (* J (pow l 2))) (* 1/3 J)))))))
#s(approx (* (* 2 (sinh l)) J) #s(hole binary64 (* l (+ (* 2 J) (* (pow l 2) (+ (* 1/3 J) (* (pow l 2) (+ (* 1/2520 (* J (pow l 2))) (* 1/60 J)))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* 2 l)))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* 1/3 (pow l 2))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* 1/60 (pow l 2))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (* l (+ 2 (* (pow l 2) (+ 1/3 (* (pow l 2) (+ 1/60 (* 1/2520 (pow l 2))))))))))
#s(approx (sinh l) #s(hole binary64 l))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* 1/6 (pow l 2))))))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* (pow l 2) (+ 1/6 (* 1/120 (pow l 2))))))))
#s(approx (sinh l) #s(hole binary64 (* l (+ 1 (* (pow l 2) (+ 1/6 (* (pow l 2) (+ 1/120 (* 1/5040 (pow l 2))))))))))
#s(approx l #s(hole binary64 l))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -2 (* J (* U (* l (cos (* 1/2 K)))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* l (- (* 4 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 2 (* J (* U (cos (* 1/2 K))))))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* l (- (* l (+ (* -1/3 (* J (* U (* l (cos (* 1/2 K)))))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))) (* 2 (* J (* U (cos (* 1/2 K))))))) (pow (fabs U) 2))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -2 (* J (* U (* l (cos (* 1/2 K))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* 4 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* l (+ (* -1/3 (* J (* U (* l (cos (* 1/2 K)))))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* l (- (* l (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* l (- (* 4/3 (* (pow J 2) (* l (pow (cos (* 1/2 K)) 2)))) (* 1/3 (* J (* U (cos (* 1/2 K))))))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* 4 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4/3 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 8/45 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 4/3 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow l 2) (+ (* 4 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 4/3 (* (pow J 2) (pow (cos (* 1/2 K)) 2))) (* (pow l 2) (+ (* 4/315 (* (pow J 2) (* (pow l 2) (pow (cos (* 1/2 K)) 2)))) (* 8/45 (* (pow J 2) (pow (cos (* 1/2 K)) 2)))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* 2 (* J (* U (* l (cos (* 1/2 K))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 1/3 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 2 (* J (* U (cos (* 1/2 K)))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 2 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/60 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 1/3 (* J (* U (cos (* 1/2 K)))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* l (+ (* 2 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/3 (* J (* U (cos (* 1/2 K))))) (* (pow l 2) (+ (* 1/2520 (* J (* U (* (pow l 2) (cos (* 1/2 K)))))) (* 1/60 (* J (* U (cos (* 1/2 K)))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* 2 (* l (cos (* 1/2 K))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 1/3 (* (pow l 2) (cos (* 1/2 K)))) (* 2 (cos (* 1/2 K)))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/60 (* (pow l 2) (cos (* 1/2 K)))) (* 1/3 (cos (* 1/2 K)))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* l (+ (* 2 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/3 (cos (* 1/2 K))) (* (pow l 2) (+ (* 1/2520 (* (pow l 2) (cos (* 1/2 K)))) (* 1/60 (cos (* 1/2 K)))))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* 2 (* J (* l (cos (* 1/2 K))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 1/3 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 2 (* J (cos (* 1/2 K)))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* l (+ (* 2 (* J (cos (* 1/2 K)))) (* (pow l 2) (+ (* 1/60 (* J (* (pow l 2) (cos (* 1/2 K))))) (* 1/3 (* J (cos (* 1/2 K)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (+ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3)) (- (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (* 2 (sinh l)) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (sinh l) #s(hole binary64 (* 1/2 (- (exp l) (/ 1 (exp l))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (+ (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* (pow K 2) (- (+ (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (+ (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (* (pow K 2) (- (* -61/15360 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (+ (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (* (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))) (- (* 7/128 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))) (+ (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)) (/ (* (- (* -3/8 (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2))) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))))) (/ (* (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))) 2)))) (+ (/ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))) (/ (pow U 3) (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* -3/8 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (pow U 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (+ (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* 7/128 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))))) (pow U 3)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (+ (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* (pow K 2) (+ (* -61/15360 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* 7/128 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))))) (pow U 3)))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* -3/8 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* 7/128 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))))))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) #s(hole binary64 (+ (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3)) (* (pow K 2) (+ (* -3/8 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (* (pow K 2) (+ (* -61/15360 (* (pow J 3) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 3)))) (* 7/128 (* (pow J 3) (pow (- (exp l) (/ 1 (exp l))) 3))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (* J (- (exp l) (/ 1 (exp l))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) #s(hole binary64 (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l))))))))))))
#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 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (pow (fabs U) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (+ (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (+ (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))))) (pow (fabs U) 2))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (- (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (- (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (+ (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (- (* -1/1440 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* -1/46080 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l))))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* -1/4 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* 1/48 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2)) (* (pow K 2) (+ (* -1/4 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (* (pow K 2) (+ (* -1/1440 (* (pow J 2) (* (pow K 2) (pow (- (exp l) (/ 1 (exp l))) 2)))) (* 1/48 (* (pow J 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (* J (* U (- (exp l) (/ 1 (exp l)))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* -1/8 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))) (* J (* U (- (exp l) (/ 1 (exp l))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* J (* U (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) #s(hole binary64 (+ (* J (* U (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/8 (* J (* U (- (exp l) (/ 1 (exp l)))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (* U (- (exp l) (/ 1 (exp l))))))) (* 1/384 (* J (* U (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (exp l) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* -1/8 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* 1/384 (* (pow K 2) (- (exp l) (/ 1 (exp l)))))))) (/ 1 (exp l)))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) #s(hole binary64 (- (+ (exp l) (* (pow K 2) (+ (* -1/8 (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/46080 (* (pow K 2) (- (exp l) (/ 1 (exp l))))) (* 1/384 (- (exp l) (/ 1 (exp l))))))))) (/ 1 (exp l)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (* J (- (exp l) (/ 1 (exp l)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* -1/8 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* J (- (exp l) (/ 1 (exp l))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* 1/384 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l))))))))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (+ U (+ (* J (- (exp l) (/ 1 (exp l)))) (* (pow K 2) (+ (* -1/8 (* J (- (exp l) (/ 1 (exp l))))) (* (pow K 2) (+ (* -1/46080 (* J (* (pow K 2) (- (exp l) (/ 1 (exp l)))))) (* 1/384 (* J (- (exp l) (/ 1 (exp l)))))))))))))
#s(approx (cos (/ K 2)) #s(hole binary64 (cos (* 1/2 K))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (/ (* (pow J 4) (* U (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4)))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* U (- (/ (* (pow J 5) (* U (* (pow (cos (* 1/2 K)) 5) (pow (- (exp l) (/ 1 (exp l))) 5)))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3)) (* -1 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2))))) (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (+ (* U (- (* U (- (* U (- (/ 1 (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* -1 (/ (* (pow J 6) (* (pow (cos (* 1/2 K)) 6) (pow (- (exp l) (/ 1 (exp l))) 6))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 4))))) (* -1 (/ (* (pow J 5) (* (pow (cos (* 1/2 K)) 5) (pow (- (exp l) (/ 1 (exp l))) 5))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3))))) (* -1 (/ (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2))))) (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))))
#s(approx (pow U 3/2) #s(hole binary64 (sqrt (pow U 3))))
#s(approx U #s(hole binary64 U))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)))))
#s(approx (fabs U) #s(hole binary64 (fabs U)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (+ (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* -1 (/ (pow U 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* J (* (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))) (+ (/ 1 U) (+ (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (/ (pow (fabs U) 2) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (- (* -1 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow U 3))) (+ (/ 1 U) (+ (/ 1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))) (+ (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* J (* (pow U 2) (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))) (+ (/ (* (+ 1 (/ (pow (fabs U) 2) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 2) (* (pow U 3) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (/ (pow (fabs U) 2) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2)))))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* (pow U 3) (+ 1 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* -1 (* J (* U (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* U (- (+ (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U) (/ (pow (fabs U) 2) U)) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* U (- (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* U (+ 1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (/ (* (pow U 2) (pow (sqrt -1) 2)) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* U (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (* -1 (/ (- (* -1 (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 3) (* U (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))) (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) #s(hole binary64 (* (pow U 2) (+ (* -1 (/ (- (* -1 (/ (- (* -1 (/ (- (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 3)) (* (pow J 4) (* (pow (cos (* 1/2 K)) 4) (pow (- (exp l) (/ 1 (exp l))) 4))))) U)) (* -1 (/ (* (pow (sqrt -1) 2) (pow (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) 2)) (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3)))))) U)) (/ (* (pow (sqrt -1) 2) (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2))) (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))))) U)) (/ (pow (sqrt -1) 2) (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow U 3) (pow (sqrt -1) 2)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) #s(hole binary64 (* -1 (* (pow U 3) (+ (* -1 (/ (* (pow J 3) (* (pow (cos (* 1/2 K)) 3) (pow (- (exp l) (/ 1 (exp l))) 3))) (pow U 3))) (pow (sqrt -1) 2))))))
#s(approx (pow U 3/2) #s(hole binary64 (* (sqrt (pow U 3)) (pow (sqrt -1) 2))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) #s(hole binary64 (* -1 (* U (- (* -1 (/ (+ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) (pow (fabs U) 2)) U)) (* -1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* (pow J 2) (* (pow (cos (* 1/2 K)) 2) (pow (- (exp l) (/ 1 (exp l))) 2))) U)) (* -1 (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l)))))))))))
#s(approx (+ (* J (* (* 2 (sinh l)) (cos (/ K 2)))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) #s(hole binary64 (* -1 (* U (- (* -1 (/ (* J (* (cos (* 1/2 K)) (- (exp l) (/ 1 (exp l))))) U)) 1)))))

Outputs
(/.f64 (neg.f64 (fma.f64 (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(+.f64 (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))))
(/.f64 (-.f64 (.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))) (-.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3/2 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3/2 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(fma.f64 (fabs.f64 (pow.f64 U #s(literal 3/2 binary64))) (fabs.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(fma.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(fma.f64 U (.f64 U U) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(+.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)))
(+.f64 (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 U #s(literal 3/4 binary64)) (pow.f64 U #s(literal 3/4 binary64)))
(pow.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 U #s(literal 3/2 binary64))
(sqrt.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 U) #s(literal 3/2 binary64)))
U
#s(literal 3/2 binary64)
(.f64 (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3/2 binary64)) (pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3/2 binary64)))
(.f64 (pow.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))
(.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 3 binary64)))
(.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J)
(.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (*.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J))
(.f64 J (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 K #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (/.f64 K #s(literal 2 binary64))))
(cos.f64 (/.f64 K #s(literal 2 binary64)))
(/.f64 (neg.f64 K) #s(literal -2 binary64))
(/.f64 K #s(literal 2 binary64))
K
#s(literal 2 binary64)
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)
(.f64 J (.f64 (sinh.f64 l) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) J))
(*.f64 (sinh.f64 l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (sinh.f64 l))
(/.f64 (-.f64 (.f64 (exp.f64 l) (exp.f64 l)) (.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))) (+.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))
(/.f64 (-.f64 (pow.f64 (exp.f64 l) #s(literal 3 binary64)) (pow.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) #s(literal 3 binary64))) (fma.f64 (exp.f64 l) (exp.f64 l) (fma.f64 (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (pow.f64 (exp.f64 l) #s(literal -1 binary64)) (*.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))))
(-.f64 (exp.f64 l) (pow.f64 (exp.f64 l) #s(literal -1 binary64)))
(+.f64 (sinh.f64 l) (sinh.f64 l))
(/.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))
(sinh.f64 l)
l
J
#s(literal 3 binary64)
(/.f64 (-.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (.f64 (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))) (-.f64 (.f64 U U) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 U U) #s(literal 3 binary64)) (pow.f64 (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (.f64 U U) (.f64 U U) (-.f64 (.f64 (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))) (.f64 (.f64 U U) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))))))
(fma.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(fma.f64 (pow.f64 (fabs.f64 U) #s(literal 1 binary64)) (pow.f64 (fabs.f64 U) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(fma.f64 (fabs.f64 (fabs.f64 U)) (fabs.f64 (fabs.f64 U)) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(fma.f64 (fabs.f64 U) (fabs.f64 U) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (*.f64 U U))
(fma.f64 U U (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(-.f64 (fma.f64 (neg.f64 (fabs.f64 U)) (neg.f64 (fabs.f64 U)) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(+.f64 (.f64 U U) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))))
(+.f64 (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 U U))
(sqrt.f64 (*.f64 U U))
(fabs.f64 (*.f64 #s(literal -1 binary64) U))
(fabs.f64 U)
(.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))) (fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U) (.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(fma.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(fma.f64 (neg.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(fma.f64 (fabs.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(fma.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(-.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(+.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J))
(.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J)))
(.f64 (neg.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (fabs.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (fabs.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))))
(pow.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 2 binary64))
(.f64 (.f64 U (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))
(.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(.f64 U (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 U U)) (-.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(/.f64 (fma.f64 (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (-.f64 (.f64 U U) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))))
(fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J U)
(fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) U)
(fma.f64 J (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(+.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(+.f64 U (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64))))
(.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (sinh.f64 l) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (sinh.f64 l) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))))) (.f64 U U)) (-.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))
(/.f64 (fma.f64 (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (neg.f64 (pow.f64 U #s(literal 3/2 binary64))) (pow.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (-.f64 (.f64 U U) (.f64 (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U))))
(fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) J U)
(fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
(fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 J (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) U)
(fma.f64 J (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(+.f64 (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(+.f64 U (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) (cos.f64 (/.f64 K #s(literal 2 binary64)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (*.f64 U U)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (fma.f64 (.f64 (.f64 J (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 U U) (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))) (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (.f64 U U))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 (.f64 (pow.f64 U #s(literal 5 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 6 binary64)))) #s(literal -1 binary64) (.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) J (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (.f64 U U))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (fma.f64 (-.f64 (.f64 (-.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 U U))) (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) U) (.f64 (fma.f64 (.f64 (pow.f64 U #s(literal 5 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 6 binary64)))) #s(literal -1 binary64) (.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (.f64 U U))) (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))))) J) (fma.f64 (.f64 (pow.f64 U #s(literal 5 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 6 binary64)))) #s(literal -1 binary64) (.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (fabs.f64 U) #s(literal 4 binary64)))))) J (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) J (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (*.f64 U U))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J))
#s(approx (* (* 2 (sinh l)) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))
#s(approx J J)
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (*.f64 U U))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (.f64 (.f64 J U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64) (*.f64 U U)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (fma.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) J (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) J (*.f64 U U)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (.f64 (.f64 J U) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (fma.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) J (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) J))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (.f64 J U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) U)
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) U)
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J U))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J (*.f64 (/.f64 U J) J)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (fma.f64 (+.f64 (/.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 U U)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 J J)) (/.f64 (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 J J))) #s(literal -1 binary64) (-.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 U J) #s(literal -1 binary64)))) J))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (-.f64 (fma.f64 (/.f64 U (pow.f64 J #s(literal 3 binary64))) (/.f64 (.f64 U U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (+.f64 (fma.f64 (/.f64 U J) #s(literal -1 binary64) (/.f64 (.f64 #s(literal -1 binary64) (.f64 U U)) (.f64 (.f64 J J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (+.f64 (fma.f64 (/.f64 U (pow.f64 J #s(literal 3 binary64))) (/.f64 (fma.f64 (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64) (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (/.f64 U J) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 U U) (.f64 (.f64 J J) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) J))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (*.f64 (pow.f64 (/.f64 U J) #s(literal 3 binary64)) (pow.f64 J #s(literal 3 binary64)))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (/.f64 (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) J) (.f64 J J) (.f64 (.f64 J J) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (fma.f64 (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (sin.f64 (fma.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))))) (-.f64 (/.f64 (.f64 U U) (.f64 J J)) (/.f64 (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (neg.f64 J)))) (.f64 J J)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (fma.f64 (/.f64 (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) J) (.f64 J J) (.f64 (.f64 J J) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J (*.f64 (/.f64 U J) J)))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J (*.f64 (/.f64 U J) J)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 U J) #s(literal -1 binary64)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 (/.f64 (fma.f64 (/.f64 (/.f64 (.f64 U U) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64) (-.f64 (/.f64 (/.f64 (.f64 U U) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 #s(literal -1 binary64) U))) J) #s(literal -1 binary64) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (fma.f64 (/.f64 U (.f64 (sin.f64 (fma.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)))))) (/.f64 (.f64 U U) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (.f64 U (/.f64 (fma.f64 (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64) (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) #s(literal -1 binary64)))) J) #s(literal -1 binary64)) (fma.f64 (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64) (/.f64 (.f64 U U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))) J) #s(literal -1 binary64) (.f64 #s(literal 1 binary64) U)) J) #s(literal -1 binary64) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (.f64 (.f64 #s(literal -1 binary64) (pow.f64 J #s(literal 3 binary64))) (fma.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) #s(literal -1 binary64) (*.f64 (pow.f64 (/.f64 U J) #s(literal 3 binary64)) #s(literal -1 binary64)))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (fma.f64 (/.f64 (-.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal -1 binary64)) (.f64 (.f64 #s(literal -1 binary64) U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) J) #s(literal -1 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 J J)))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 U J) #s(literal -1 binary64)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) J) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (/.f64 U J) #s(literal -1 binary64)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (.f64 J (/.f64 (.f64 (.f64 (pow.f64 (fabs.f64 U) #s(literal 4 binary64)) l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64)))) #s(literal 2 binary64) (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (.f64 U U))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (fma.f64 (.f64 #s(literal -1 binary64) l) (fma.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) #s(literal 4 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))) #s(literal -4 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 J (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) l (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (.f64 U U))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (fma.f64 (-.f64 (.f64 (-.f64 (-.f64 (/.f64 (.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 U U)) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (.f64 J (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))) #s(literal 8 binary64) (fma.f64 J (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) U) (fma.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) #s(literal 4 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))) #s(literal -4 binary64)))) (.f64 U U)) (.f64 J (/.f64 (.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) U) (fma.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) #s(literal 4 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))) #s(literal -4 binary64)))) (.f64 U U)))))) l) (fma.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) #s(literal 4 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 J J) (pow.f64 U #s(literal 5 binary64))) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (fabs.f64 U) #s(literal 6 binary64))) #s(literal -4 binary64)))) l (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 J (pow.f64 (fabs.f64 U) #s(literal 4 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (pow.f64 (fabs.f64 U) #s(literal 4 binary64))))) l (/.f64 (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)) (*.f64 U U))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 8 binary64) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (fma.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (.f64 l l)) (.f64 (*.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 4 binary64))) (pow.f64 l #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal 13/15 binary64) (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (.f64 l l)) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (.f64 l l) (.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 l #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (.f64 (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64))) (.f64 (*.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 8 binary64)))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (.f64 (fma.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (.f64 l l)) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 4 binary64))) (pow.f64 l #s(literal 3 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal 13/15 binary64) (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (.f64 l l)) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (.f64 l l) (.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (*.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 l #s(literal 3 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 13/15 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 #s(literal 41/378 binary64) (.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (.f64 l l)) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))) (.f64 l l) (.f64 (.f64 #s(literal 4 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 l l) (.f64 (.f64 #s(literal 8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 (sin.f64 (fma.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))))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (pow.f64 l #s(literal 3 binary64))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (fma.f64 (.f64 J l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (*.f64 J l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) l))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (.f64 (fma.f64 (.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 l l))) l))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (.f64 (fma.f64 (.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/2520 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/60 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l))) (.f64 l l))) l))
#s(approx (* (* 2 (sinh l)) J) (.f64 (.f64 J #s(literal 2 binary64)) l))
#s(approx (* (* 2 (sinh l)) J) (.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/3 binary64) (.f64 J #s(literal 2 binary64))) l))
#s(approx (* (* 2 (sinh l)) J) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/60 binary64) (.f64 #s(literal 1/3 binary64) J)) (.f64 l l) (.f64 J #s(literal 2 binary64))) l))
#s(approx (* (* 2 (sinh l)) J) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 l l) J) #s(literal 1/2520 binary64) (.f64 #s(literal 1/60 binary64) J)) (.f64 l l) (.f64 #s(literal 1/3 binary64) J)) (.f64 l l) (.f64 J #s(literal 2 binary64))) l))
#s(approx (* 2 (sinh l)) (*.f64 l #s(literal 2 binary64)))
#s(approx (* 2 (sinh l)) (.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 l l) #s(literal 2 binary64)) l))
#s(approx (* 2 (sinh l)) (.f64 (fma.f64 (fma.f64 #s(literal 1/60 binary64) (.f64 l l) #s(literal 1/3 binary64)) (*.f64 l l) #s(literal 2 binary64)) l))
#s(approx (* 2 (sinh l)) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2520 binary64) (.f64 l l) #s(literal 1/60 binary64)) (.f64 l l) #s(literal 1/3 binary64)) (.f64 l l) #s(literal 2 binary64)) l))
#s(approx (sinh l) l)
#s(approx (sinh l) (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 l l) #s(literal 1 binary64)) l))
#s(approx (sinh l) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 l l) #s(literal 1/6 binary64)) (*.f64 l l) #s(literal 1 binary64)) l))
#s(approx (sinh l) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 1/5040 binary64) (.f64 l l) #s(literal 1/120 binary64)) (.f64 l l) #s(literal 1/6 binary64)) (.f64 l l) #s(literal 1 binary64)) l))
#s(approx l l)
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 U l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 U U)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (fma.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (.f64 (sin.f64 (fma.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))))) l) (.f64 #s(literal -2 binary64) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l (.f64 U U)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))) (.f64 (.f64 #s(literal -1/3 binary64) J) (.f64 (.f64 U l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l (.f64 #s(literal -2 binary64) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l (*.f64 U U)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (.f64 #s(literal -2 binary64) J) (.f64 (.f64 U l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (fma.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (.f64 (sin.f64 (fma.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))))) l) (.f64 #s(literal -2 binary64) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))) (.f64 (.f64 #s(literal -1/3 binary64) J) (.f64 (.f64 U l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l (.f64 #s(literal -2 binary64) (.f64 (*.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4/3 binary64) (.f64 J J)) (.f64 (.f64 (sin.f64 (fma.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))))) l) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l (.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))))) l (.f64 #s(literal -2 binary64) (.f64 (*.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (.f64 (.f64 (.f64 J J) (.f64 l l)) (.f64 (sin.f64 (fma.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)))))) #s(literal 4 binary64)))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))) (.f64 (.f64 (.f64 (.f64 J J) (.f64 l l)) (.f64 (sin.f64 (fma.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)))))) #s(literal 4/3 binary64))) (*.f64 l l)))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 4/3 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))) (.f64 #s(literal 8/45 binary64) (.f64 (.f64 (.f64 J J) (.f64 l l)) (.f64 (sin.f64 (fma.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)))))))) (.f64 l l) (.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))))) (.f64 l l)))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 8/45 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))) (.f64 #s(literal 4/315 binary64) (.f64 (.f64 (.f64 J J) (.f64 l l)) (.f64 (sin.f64 (fma.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)))))))) (.f64 l l) (.f64 (.f64 #s(literal 4/3 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))))) (.f64 l l) (.f64 (.f64 #s(literal 4 binary64) (.f64 J J)) (.f64 (sin.f64 (fma.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))))))) (*.f64 l l)))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (.f64 J #s(literal 2 binary64)) (.f64 (.f64 U l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 U (.f64 l l)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (fma.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 J U) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 1/60 binary64) (.f64 (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/3 binary64))) (.f64 l l) (fma.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2520 binary64) J) (.f64 (.f64 U (.f64 l l)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/60 binary64))) (.f64 l l) (.f64 (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/3 binary64))) (.f64 l l) (fma.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (.f64 J U) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) l))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 J l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (*.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) l U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l))) l U))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (.f64 (.f64 l #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) (.f64 l l)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) l))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) (.f64 l l)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) l))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2520 binary64) (.f64 l l)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 #s(literal 1/60 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l) (.f64 #s(literal 1/3 binary64) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l) (.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) l))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (.f64 (.f64 J l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 #s(literal 1/3 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (*.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) l U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (fma.f64 (.f64 J #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (fma.f64 (.f64 #s(literal 1/60 binary64) J) (.f64 (.f64 l l) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/3 binary64) J) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (.f64 l l))) l U))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (fma.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (.f64 U U) (.f64 (.f64 J U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
#s(approx (* 2 (sinh l)) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))
#s(approx (sinh l) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (-.f64 (.f64 U U) (.f64 (.f64 J U) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (fma.f64 (.f64 (.f64 J J) (.f64 (sin.f64 (fma.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)))))) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (neg.f64 J) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) U))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (.f64 K K) (/.f64 (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (-.f64 (fma.f64 (-.f64 (-.f64 (/.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (/.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (.f64 K K) (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (.f64 K K) (/.f64 (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (-.f64 (fma.f64 (-.f64 (fma.f64 (-.f64 (-.f64 (/.f64 (.f64 #s(literal -61/15360 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/1440 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/46080 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (-.f64 (-.f64 (/.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (/.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (-.f64 (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (.f64 K K) (/.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (fma.f64 (-.f64 (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))))) (.f64 K K) (/.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))) (/.f64 (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))))) (.f64 K K) (/.f64 (fma.f64 (.f64 U U) U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 U U) U (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (fma.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))) (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (*.f64 K K) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (fma.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (fma.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 J #s(literal 3 binary64))) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (fma.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 J #s(literal 3 binary64))) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (.f64 #s(literal -61/15360 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))))) (.f64 K K))) (*.f64 K K) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (fma.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (fma.f64 (fma.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))) (.f64 #s(literal -3/8 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64)))) (.f64 K K) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))))
#s(approx (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3) (fma.f64 (fma.f64 (.f64 #s(literal -3/8 binary64) (pow.f64 J #s(literal 3 binary64))) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (fma.f64 (.f64 #s(literal 7/128 binary64) (pow.f64 J #s(literal 3 binary64))) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64)) (.f64 (.f64 #s(literal -61/15360 binary64) (pow.f64 J #s(literal 3 binary64))) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 3 binary64))))) (.f64 K K))) (.f64 K K) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 3 binary64))))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (fma.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))) (.f64 K K) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)))
#s(approx (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))))) (.f64 K K))) (.f64 K K) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)))
#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 (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (-.f64 (fma.f64 U U (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (-.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (-.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)) (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K)))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (-.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (pow.f64 U #s(literal 1 binary64)) (pow.f64 U #s(literal 1 binary64)) (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/1440 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/46080 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal 1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K)))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (-.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (-.f64 (fma.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal -1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (-.f64 (fma.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/1440 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 1/46080 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal 1/384 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (.f64 K K) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J)))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64)))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64)))) (.f64 K K) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))))
#s(approx (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 J J)) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/1440 binary64) (.f64 J J)) (.f64 (.f64 K K) (pow.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) #s(literal 2 binary64))))) (.f64 K K))) (.f64 K K) (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J) #s(literal 2 binary64))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (.f64 J U) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 (.f64 K K) U) (.f64 (sinh.f64 l) #s(literal 2 binary64))))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (.f64 J U) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 (.f64 K K) U) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) J))) (*.f64 K K))))
#s(approx (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (fma.f64 (.f64 J U) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) U) (.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 (.f64 K K) U) (.f64 (sinh.f64 l) #s(literal 2 binary64))))) (.f64 K K))) (.f64 K K))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J U) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))) (.f64 K K))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J U) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))))) (.f64 K K))) (.f64 K K))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (*.f64 (sinh.f64 l) #s(literal 2 binary64)))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (-.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 K K)) (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (exp.f64 l)) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) (.f64 K K)) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 #s(literal -1/8 binary64) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (.f64 K K) (exp.f64 l)) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))
#s(approx (* (* 2 (sinh l)) (cos (/ K 2))) (-.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/46080 binary64) (.f64 K K)) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 #s(literal 1/384 binary64) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (.f64 K K) (.f64 #s(literal -1/8 binary64) (.f64 (sinh.f64 l) #s(literal 2 binary64)))) (*.f64 K K) (exp.f64 l)) (pow.f64 (exp.f64 l) #s(literal -1 binary64))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (fma.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) J U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J)) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J U) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J))) (.f64 K K))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (+.f64 (fma.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) J U) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/384 binary64) J) (.f64 (sinh.f64 l) #s(literal 2 binary64)) (.f64 (.f64 #s(literal -1/46080 binary64) J) (.f64 (.f64 K K) (.f64 (sinh.f64 l) #s(literal 2 binary64))))) (.f64 K K))) (.f64 K K))))
#s(approx (cos (/ K 2)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 U U)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (/.f64 (.f64 (.f64 (pow.f64 J #s(literal 4 binary64)) U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 4 binary64))) (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (*.f64 U U))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 (pow.f64 J #s(literal 5 binary64)) U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 5 binary64))) (.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))) (.f64 (/.f64 (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))) #s(literal -1 binary64))) U (.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (fma.f64 (fma.f64 (-.f64 (pow.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) #s(literal -1 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 6 binary64)) (pow.f64 J #s(literal 6 binary64))) (pow.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) #s(literal 4 binary64))) #s(literal -1 binary64))) U (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 5 binary64)) (pow.f64 J #s(literal 5 binary64))) (.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))))) U (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64))) (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))))) U (.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))))))
#s(approx (pow U 3/2) (pow.f64 U #s(literal 3/2 binary64)))
#s(approx U U)
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (fma.f64 (.f64 #s(literal -1 binary64) J) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) U) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))))
#s(approx (fabs U) (fabs.f64 U))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (fma.f64 (.f64 #s(literal -1 binary64) J) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) U) (.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal -1 binary64)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (-.f64 (.f64 (/.f64 (+.f64 (/.f64 (/.f64 (.f64 U U) (.f64 J J)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) #s(literal 1 binary64)) U) #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 U U)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (-.f64 (.f64 (.f64 (/.f64 (+.f64 (/.f64 (/.f64 (.f64 U U) (.f64 J J)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) #s(literal 1 binary64)) J) (/.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 U U)))) #s(literal -1 binary64)) (+.f64 (+.f64 (pow.f64 U #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (/.f64 (/.f64 (.f64 U U) (.f64 J J)) (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) U)))) (*.f64 U U)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (-.f64 (.f64 (.f64 (.f64 J J) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64)) (+.f64 (+.f64 (pow.f64 U #s(literal -1 binary64)) (/.f64 (/.f64 #s(literal 1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (fma.f64 (/.f64 (+.f64 (/.f64 (/.f64 (.f64 U U) (.f64 J J)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) #s(literal 1 binary64)) J) (/.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 U U))) (/.f64 (fma.f64 (.f64 (+.f64 (/.f64 (/.f64 (.f64 U U) (.f64 J J)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)))) (.f64 (.f64 (.f64 J J) U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 U U))) (.f64 (.f64 (.f64 (.f64 J J) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 J J) U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (.f64 U U)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (.f64 (fma.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (.f64 (.f64 J U) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal -1 binary64)))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (fma.f64 (.f64 J J) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) U) (-.f64 (/.f64 (.f64 U U) U) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J))) U))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (fma.f64 (.f64 J J) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) U) (.f64 (neg.f64 J) (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (fma.f64 J (/.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) U) #s(literal 1 binary64)) U))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (fma.f64 J (/.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) U) #s(literal 1 binary64)) U))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (/.f64 (.f64 (/.f64 (.f64 U U) J) #s(literal -1 binary64)) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (fma.f64 (/.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) #s(literal -1 binary64)) (.f64 (.f64 (.f64 J J) U) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 U U) (.f64 (/.f64 (/.f64 #s(literal -1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) (*.f64 U U))))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (fma.f64 (/.f64 (-.f64 (.f64 (.f64 (/.f64 #s(literal -1 binary64) (pow.f64 J #s(literal 3 binary64))) (/.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) U))) #s(literal -1 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (.f64 J J)) (/.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))) U) #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (.f64 U U)))
#s(approx (/ (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))))) (.f64 (fma.f64 (/.f64 (-.f64 (.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 4 binary64)) (pow.f64 J #s(literal 4 binary64)))))) U) #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U))) (.f64 (pow.f64 J #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64))))))) U) #s(literal -1 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (.f64 J J)) (/.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))))) U) #s(literal -1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))))) (*.f64 U U)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (.f64 (.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) #s(literal -1 binary64)))
#s(approx (+ (* (pow U 3/2) (pow U 3/2)) (pow (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) 3)) (.f64 (.f64 #s(literal -1 binary64) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64))) (fma.f64 (.f64 (pow.f64 J #s(literal 3 binary64)) (/.f64 (pow.f64 (.f64 (*.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 U #s(literal 3/2 binary64)) #s(literal 2 binary64)))) #s(literal -1 binary64) #s(literal -1 binary64))))
#s(approx (pow U 3/2) (*.f64 #s(literal -1 binary64) (pow.f64 U #s(literal 3/2 binary64))))
#s(approx (+ (* (fabs U) (fabs U)) (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J))))) (.f64 (.f64 #s(literal -1 binary64) U) (fma.f64 (/.f64 (fma.f64 (.f64 J J) (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 U U)) U) #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J)))))
#s(approx (- (* (* (cos (/ K 2)) (* (* 2 (sinh l)) J)) (* (cos (/ K 2)) (* (* 2 (sinh l)) J))) (* U (* (cos (/ K 2)) (* (* 2 (sinh l)) J)))) (.f64 (.f64 #s(literal -1 binary64) U) (fma.f64 (.f64 (.f64 J J) (/.f64 (pow.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) U)) #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64))))) J)))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) U) (-.f64 (/.f64 (.f64 (.f64 #s(literal -1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) U) #s(literal 1 binary64))))
#s(approx (+ (* (* (* 2 (sinh l)) J) (cos (/ K 2))) U) (.f64 (.f64 #s(literal -1 binary64) U) (-.f64 (/.f64 (.f64 (.f64 #s(literal -1 binary64) J) (.f64 (.f64 (sinh.f64 l) #s(literal 2 binary64)) (sin.f64 (fma.f64 #s(literal 1/2 binary64) K (/.f64 (PI.f64) #s(literal 2 binary64)))))) U) #s(literal 1 binary64))))

eval70.0ms (1.9%)

Memory: 34.5MiB live, 128.9MiB allocated; 15ms collecting garbage
Compiler: Compiled 40 889 to 2 206 computations (94.6% saved)

prune77.0ms (2.1%)

Memory

-38.4MiB live, 152.0MiB allocated; 11ms collecting garbage

Pruning

3 alts after pruning (0 fresh and 3 done)

	Pruned	Kept	Total
New	555	0	555
Fresh	0	0	0
Picked	0	3	3
Done	0	0	0
Total	555	3	558

Accuracy

100.0%

Counts

558 → 3

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	99.9%	(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)
✓	100.0%	(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
✓	11.7%	(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))

Status

Accuracy

Program

✓

99.9%

(fma.f64 (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)

✓

100.0%

(fma.f64 J (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

✓

11.7%

(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (*.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))

Compiler

Compiled 189 to 76 computations (59.8% saved)

regimes18.0ms (0.5%)

Memory

39.2MiB live, 39.1MiB allocated; 0ms collecting garbage

Counts

4 → 1

Calls

Call 1

Inputs
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (.f64 (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (.f64 U (.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
(fma.f64 (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) J) (cos.f64 (/.f64 K #s(literal 2 binary64))) U)

Outputs
(fma.f64 J (.f64 (.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Calls

10 calls:

2.0ms	(/.f64 K #s(literal 2 binary64))
2.0ms	U
2.0ms	l
2.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))
2.0ms	K

Results

Accuracy	Segments	Branch
100.0%	1	`(/.f64 K #s(literal 2 binary64))`
100.0%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
100.0%	1	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
100.0%	1	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
100.0%	1	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
100.0%	1	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
100.0%	1	`J`
100.0%	1	`l`
100.0%	1	`K`
100.0%	1	`U`

Compiler

Compiled 53 to 73 computations (-37.7% saved)

regimes14.0ms (0.4%)

Memory

-16.9MiB live, 29.9MiB allocated; 2ms collecting garbage

Accuracy

Total -50.2b remaining (-560.1%)

Threshold costs -50.2b (-560.1%)

Counts

2 → 1

Calls

Call 1

Inputs

(+.f64 (*.f64 (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

(/.f64 (fma.f64 (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 U #s(literal 3/2 binary64)) (pow.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) #s(literal 3 binary64))) (fma.f64 (fabs.f64 U) (fabs.f64 U) (-.f64 (*.f64 (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J)) (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))) (*.f64 U (*.f64 (cos.f64 (/.f64 K #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) J))))))

Outputs
(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Calls

10 calls:

2.0ms	l
1.0ms	J
1.0ms	(/.f64 K #s(literal 2 binary64))
1.0ms	(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)
1.0ms	(cos.f64 (/.f64 K #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
86.0%	1	`(/.f64 K #s(literal 2 binary64))`
86.0%	1	`(cos.f64 (/.f64 K #s(literal 2 binary64)))`
86.0%	1	`(-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))`
86.0%	1	`(*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l))))`
86.0%	1	`(.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64))))`
86.0%	1	`(+.f64 (.f64 (.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)`
86.0%	1	`J`
86.0%	1	`l`
86.0%	1	`K`
86.0%	1	`U`

Compiler

Compiled 53 to 73 computations (-37.7% saved)

simplify37.0ms (1%)

Memory

-10.4MiB live, 36.4MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	18	27
1	27	27
2	33	27
3	40	27
4	72	27
5	392	27
6	3467	27

Stop Event

1×	node limit

Calls

Call 1

Inputs

(fma.f64 J (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

(+.f64 (*.f64 (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

Outputs

(fma.f64 J (*.f64 (*.f64 #s(literal 2 binary64) (sinh.f64 l)) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

(+.f64 (*.f64 (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (neg.f64 l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

(+.f64 (*.f64 (*.f64 J (-.f64 (exp.f64 l) (exp.f64 (*.f64 #s(literal -1 binary64) l)))) (cos.f64 (/.f64 K #s(literal 2 binary64)))) U)

derivations23.0ms (0.6%)

Memory

33.9MiB live, 33.9MiB allocated; 0ms collecting garbage

Stop Event

1×

done

Compiler

Compiled 28 to 19 computations (32.1% saved)

preprocess23.0ms (0.6%)

Memory: 0.1MiB live, 46.7MiB allocated; 2ms collecting garbage
Remove: (abs K)
Compiler: Compiled 134 to 110 computations (17.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze22.0ms (0.6%)

sample2.2s (60.2%)

explain332.0ms (9%)

preprocess181.0ms (4.9%)

eval0.0ms (0%)

prune0.0ms (0%)

series22.0ms (0.6%)

rewrite183.0ms (5%)

eval36.0ms (1%)

prune40.0ms (1.1%)

series130.0ms (3.5%)

rewrite264.0ms (7.1%)

eval70.0ms (1.9%)

prune77.0ms (2.1%)

regimes18.0ms (0.5%)

regimes14.0ms (0.4%)

simplify37.0ms (1%)

derivations23.0ms (0.6%)

preprocess23.0ms (0.6%)

end0.0ms (0%)

Profiling